From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Jun 2002 01:52:32 +0000 (+0000)
Subject: Test relying on undefined behaviour of atan2(0, 0)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3e5d91f13de80e0898b23fc82b1116e46448841b;p=p5sagit%2Fp5-mst-13.2.git

Test relying on undefined behaviour of atan2(0, 0)
(valiantly debugged by Mark Lutz).

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

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.