POSIX: the fallback copysign() doesn't handle NaNs

[perl5.git] / ext / POSIX / t / math.t

diff --git a/ext/POSIX/t/math.t b/ext/POSIX/t/math.t
index 95d7e47..e895fb4 100644 (file)
--- a/ext/POSIX/t/math.t
+++ b/ext/POSIX/t/math.t
@@ -293,6 +293,8 @@ SKIP: {
     like(NAN, qr/^NaN/, "NAN is Perl's NaN");
     cmp_ok(NAN, '!=', NAN, "NAN != NAN");
     ok(!(NAN == NAN), "NAN == NAN");
+    # we have a fallback copysign(), but it doesn't work for NaN
+    skip('no copysign', 2) unless $Config{d_copysign};
     ok(!signbit(copysign(NAN, 1.0)), "signbit(copysign(NAN, 1.0)))");
     ok(signbit(copysign(NAN, -1.0)), "signbit(copysign(NAN, -1.0)))");
 }