[inseparable changes from match from perl-5.003_97a to perl-5.003_97b]

[p5sagit/p5-mst-13.2.git] / t / lib / complex.t

diff --git a/t/lib/complex.t b/t/lib/complex.t
index 3bb52c0..310e6f5 100755 (executable)
--- a/t/lib/complex.t
+++ b/t/lib/complex.t
@@ -2,19 +2,21 @@
 
 # $RCSfile$
 #
-# Regression tests for the new Math::Complex pacakge
-# -- Raphael Manfredi, Septemeber 1996
-# -- Jarkko Hietaniemi Manfredi, March 1997
+# Regression tests for the Math::Complex pacakge
+# -- Raphael Manfredi, September 1996
+# -- Jarkko Hietaniemi, March-April 1997
+
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
 }
+
 use Math::Complex;
 
 $test = 0;
 $| = 1;
 @script = ();
-my $eps = 1e-4; # for example root() is quite bad
+my $eps = 1e-11;
 
 while (<DATA>) {
        s/^\s+//;
@@ -47,6 +49,38 @@ while (<DATA>) {
        }
 }
 
+# test the divbyzeros
+
+test_dbz(
+        'i/0',
+#       'tan(pi/2)',   # may succeed thanks to floating point inaccuracies
+#       'sec(pi/2)',   # may succeed thanks to floating point inaccuracies
+        'csc(0)',
+        'cot(0)',
+        'atan(i)',
+        'asec(0)',
+        'acsc(0)',
+        'acot(i)',
+#       'tanh(pi/2)',  # may succeed thanks to floating point inaccuracies
+#       'sech(pi/2)',  # may succeed thanks to floating point inaccuracies
+        'csch(0)',
+        'coth(0)',
+        'atanh(1)',
+        'asech(0)',
+        'acsch(0)',
+        'acoth(1)'
+       );
+
+sub test_dbz {
+    for my $op (@_) {
+       $test++;
+
+       push(@script, qq(eval '$op';));
+       push(@script, qq(print 'not ' unless (\$@ =~ /Division by zero/);));
+       push(@script, qq(print "ok $test\n";));
+    }
+}
+
 print "1..$test\n";
 eval join '', @script;
 die $@ if $@;