From 72ae6b57da17eddc7408991863b6a47bf7443f47 Mon Sep 17 00:00:00 2001 From: Tony Cook Date: Mon, 6 Nov 2023 09:32:12 +1100 Subject: [PATCH] POSIX: the fallback copysign() doesn't handle NaNs --- ext/POSIX/t/math.t | 2 ++ 1 file changed, 2 insertions(+) diff --git a/ext/POSIX/t/math.t b/ext/POSIX/t/math.t index 95d7e47e7438..e895fb4e6c8b 100644 --- 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)))"); }