diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-07-15 00:35:02 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-15 05:48:38 +0000 |
| commit | 2f3671218f9e35aa2ccad92da0178b84a44df3a2 (patch) | |
| tree | 97f15b2c7096eaeec8207b3b826650ff8cdd81bc /t | |
| parent | c5ae3962d54254e9f1e8f5fe2185346837ccf5da (diff) | |
| download | perl-2f3671218f9e35aa2ccad92da0178b84a44df3a2.tar.gz | |
5.004_74: trig.t: math inaccuracy fudge for unicos
Message-Id: <199807141835.VAA09030@alpha.hut.fi>
p4raw-id: //depot/perl@1499
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/trig.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/lib/trig.t b/t/lib/trig.t index 09147112c7..3114176ab0 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); } |