diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-12 01:52:32 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-12 01:52:32 +0000 |
| commit | 3e5d91f13de80e0898b23fc82b1116e46448841b (patch) | |
| tree | fc9aa24f3235aa166a5d4188722fbe08b71e515a /lib | |
| parent | 416e7255471199e449f09747b8a3f428fc8e2bb5 (diff) | |
| download | perl-3e5d91f13de80e0898b23fc82b1116e46448841b.tar.gz | |
Test relying on undefined behaviour of atan2(0, 0)
(valiantly debugged by Mark Lutz).
p4raw-id: //depot/perl@17197
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Math/Trig.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/Math/Trig.t b/lib/Math/Trig.t index 4246a47c40..85ff357ff2 100755 --- a/lib/Math/Trig.t +++ b/lib/Math/Trig.t @@ -183,8 +183,9 @@ use Math::Trig ':radial'; unless (near(great_circle_direction(0, 0, 0, pi/2), pi)); print "ok 24\n"; - print 'not ' - unless (near(great_circle_direction(0, 0, pi, pi), -pi()/2)); +# Retired test: Relies on atan(0, 0), which is not portable. +# print 'not ' +# unless (near(great_circle_direction(0, 0, pi, pi), -pi()/2)); print "ok 25\n"; # London to Tokyo. |