Change 32914: 1e4 isn't large enough with 16 byte long doubles (at least on x86_64).

[Nicholas Clark]

Change 32914 by [EMAIL PROTECTED] on 2008/01/09 11:47:12

        1e4 isn't large enough with 16 byte long doubles (at least on x86_64).
        However, 1e5 does take us "to infinity and beyond"
        (Plus use cmp_ok, for better diagnostics)

Affected files ...

... //depot/perl/lib/Math/Trig.t#9 edit

Differences ...

==== //depot/perl/lib/Math/Trig.t#9 (xtext) ====
Index: perl/lib/Math/Trig.t
--- perl/lib/Math/Trig.t#8~32908~       2008-01-08 18:36:33.000000000 -0800
+++ perl/lib/Math/Trig.t        2008-01-09 03:47:12.000000000 -0800
@@ -347,18 +347,18 @@
 ok(near(tanh(-100), -1));
 ok(near(coth(-100), -1));
 
-ok(sinh(1e4) == Inf());
-ok(sech(1e4) == 0);
-ok(cosh(1e4) == Inf());
-ok(csch(1e4) == 0);
-ok(tanh(1e4) == 1);
-ok(coth(1e4) == 1);
+cmp_ok(sinh(1e5), '==', Inf());
+cmp_ok(sech(1e5), '==', 0);
+cmp_ok(cosh(1e5), '==', Inf());
+cmp_ok(csch(1e5), '==', 0);
+cmp_ok(tanh(1e5), '==', 1);
+cmp_ok(coth(1e5), '==', 1);
 
-ok(sinh(-1e4) == -Inf());
-ok(sech(-1e4) == 0);
-ok(cosh(-1e4) == Inf());
-ok(csch(-1e4) == 0);
-ok(tanh(-1e4) == -1);
-ok(coth(-1e4) == -1);
+cmp_ok(sinh(-1e5), '==', -Inf());
+cmp_ok(sech(-1e5), '==', 0);
+cmp_ok(cosh(-1e5), '==', Inf());
+cmp_ok(csch(-1e5), '==', 0);
+cmp_ok(tanh(-1e5), '==', -1);
+cmp_ok(coth(-1e5), '==', -1);
 
 # eof
End of Patch.