Test relying on undefined behaviour of atan2(0, 0)
Jarkko Hietaniemi [Wed, 12 Jun 2002 01:52:32 +0000 (01:52 +0000)]
(valiantly debugged by Mark Lutz).

p4raw-id: //depot/perl@17197

lib/Math/Trig.t

index 4246a47..85ff357 100755 (executable)
@@ -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.