Math-Complex: netbsd-vax: no inf, different range

diff --git a/cpan/Math-Complex/t/Trig.t b/cpan/Math-Complex/t/Trig.t
index 290a21e..31960bb 100644 (file)
--- a/cpan/Math-Complex/t/Trig.t
+++ b/cpan/Math-Complex/t/Trig.t
@@ -1,4 +1,4 @@
-#!./perl 
+#!./perl

 
 #
 # Regression tests for the Math::Trig package
 
 #
 # Regression tests for the Math::Trig package


@@ -13,6 +13,9 @@ use Test::More tests => 153;
 use Math::Trig 1.18;
 use Math::Trig 1.18 qw(:pi Inf);
 
 use Math::Trig 1.18;
 use Math::Trig 1.18 qw(:pi Inf);
 

+our $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/);
+our $has_inf   = !$vax_float;
+

 my $pip2 = pi / 2;
 
 use strict;
 my $pip2 = pi / 2;
 
 use strict;


@@ -289,9 +292,14 @@ use Math::Trig ':radial';
     ok(near($dst1, $dst2));
 }
 
     ok(near($dst1, $dst2));
 }
 

+SKIP: {
+# With netbsd-vax (or any vax) there is neither Inf, nor 1e40.
+skip("different float range", 42) if $vax_float;
+skip("no inf",                42) unless $has_inf;
+

 print "# Infinity\n";
 
 print "# Infinity\n";
 

-my $BigDouble = 1e40;
+my $BigDouble = eval '1e40';

 
 # E.g. netbsd-alpha core dumps on Inf arith without this.
 local $SIG{FPE} = sub { };
 
 # E.g. netbsd-alpha core dumps on Inf arith without this.
 local $SIG{FPE} = sub { };


@@ -318,17 +326,17 @@ ok(-Inf() / $BigDouble == -Inf());
 
 print "# sinh/sech/cosh/csch/tanh/coth unto infinity\n";
 
 
 print "# sinh/sech/cosh/csch/tanh/coth unto infinity\n";
 

-ok(near(sinh(100), 1.3441e+43, 1e-3));
-ok(near(sech(100), 7.4402e-44, 1e-3));
-ok(near(cosh(100), 1.3441e+43, 1e-3));
-ok(near(csch(100), 7.4402e-44, 1e-3));
+ok(near(sinh(100), eval '1.3441e+43', 1e-3));
+ok(near(sech(100), eval '7.4402e-44', 1e-3));
+ok(near(cosh(100), eval '1.3441e+43', 1e-3));
+ok(near(csch(100), eval '7.4402e-44', 1e-3));

 ok(near(tanh(100), 1));
 ok(near(coth(100), 1));
 
 ok(near(tanh(100), 1));
 ok(near(coth(100), 1));
 

-ok(near(sinh(-100), -1.3441e+43, 1e-3));
-ok(near(sech(-100),  7.4402e-44, 1e-3));
-ok(near(cosh(-100),  1.3441e+43, 1e-3));
-ok(near(csch(-100), -7.4402e-44, 1e-3));
+ok(near(sinh(-100), eval '-1.3441e+43', 1e-3));
+ok(near(sech(-100), eval ' 7.4402e-44', 1e-3));
+ok(near(cosh(-100), eval ' 1.3441e+43', 1e-3));
+ok(near(csch(-100), eval '-7.4402e-44', 1e-3));

 ok(near(tanh(-100), -1));
 ok(near(coth(-100), -1));
 
 ok(near(tanh(-100), -1));
 ok(near(coth(-100), -1));
 


@@ -346,6 +354,8 @@ cmp_ok(csch(-1e5), '==', 0);
 cmp_ok(tanh(-1e5), '==', -1);
 cmp_ok(coth(-1e5), '==', -1);
 
 cmp_ok(tanh(-1e5), '==', -1);
 cmp_ok(coth(-1e5), '==', -1);
 

+}
+

 print "# great_circle_distance with small angles\n";
 
 for my $e (qw(1e-2 1e-3 1e-4 1e-5)) {
 print "# great_circle_distance with small angles\n";
 
 for my $e (qw(1e-2 1e-3 1e-4 1e-5)) {