From 3e5d91f13de80e0898b23fc82b1116e46448841b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 12 Jun 2002 01:52:32 +0000 Subject: [PATCH] Test relying on undefined behaviour of atan2(0, 0) (valiantly debugged by Mark Lutz). p4raw-id: //depot/perl@17197 --- lib/Math/Trig.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lib/Math/Trig.t b/lib/Math/Trig.t index 4246a47..85ff357 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. -- 2.7.4