[inseparable changes from match from perl-5.003_97 to perl-5.003_97a]
[perl.git] / t / lib / complex.t
index 3bb52c0..46114fb 100755 (executable)
@@ -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 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+//;