From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 14 Jul 1998 21:35:02 +0000 (+0300)
Subject: 5.004_74: trig.t: math inaccuracy fudge for unicos
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2f3671218f9e35aa2ccad92da0178b84a44df3a2;p=p5sagit%2Fp5-mst-13.2.git

5.004_74: trig.t: math inaccuracy fudge for unicos

	Message-Id: <199807141835.VAA09030@alpha.hut.fi>

p4raw-id: //depot/perl@1499
---

diff --git a/t/lib/trig.t b/t/lib/trig.t
index 0914711..3114176 100755
--- a/t/lib/trig.t
+++ b/t/lib/trig.t
@@ -21,6 +21,10 @@ use vars qw($x $y $z);
 
 my $eps = 1e-11;
 
+if ($^O eq 'unicos') { # See lib/Math/Complex.pm and t/lib/complex.t.
+    $eps = 1e-10;
+}
+
 sub near ($$;$) {
     abs($_[0] - $_[1]) < (defined $_[2] ? $_[2] : $eps);
 }