This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test relying on undefined behaviour of atan2(0, 0)
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 12 Jun 2002 01:52:32 +0000 (01:52 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
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.