Make atan2(0,0) return undef

p4raw-id: //depot/perl@33676

1 files changed, 5 insertions, 1 deletions

diff --git a/t/op/exp.t b/t/op/exp.t
index 9bc44b49b4..c49a34bd6c 100755
--- a/t/op/exp.t
+++ b/t/op/exp.t
@@ -6,7 +6,7 @@ BEGIN {
     require './test.pl';
 }
 
-plan tests => 16;
+plan tests => 17;
 
 # compile time evaluation
 
@@ -57,3 +57,7 @@ cmp_ok(round(cos(-1 * $pi_2)), '==', 0.0);
 # atan2() tests were removed due to differing results from calls to
 # atan2() on various OS's and architectures.  See perlport.pod for
 # more information.
+
+# Just test that atan2(0,0) is undef, because that's implemented
+# from within perl.
+ok(!defined(atan2(0,0)), 'atan2(0,0) returns undef');