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)
[perl5.git] / 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.