summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2020-06-17 02:07:19 +0000
committerSawyer X <xsawyerx@cpan.org>2020-06-20 19:30:29 +0300
commit4233e039adeeb27cae74b1802b61321ff477a77c (patch)
treeb7b417cc490fc1fe69d0c29434ca8eafe9866aae
parent286ba7099657d11792d0b9a12ba23a35f37c2e12 (diff)
downloadperl-4233e039adeeb27cae74b1802b61321ff477a77c.tar.gz
skip the failing hexfloat test if it fails on NetBSD
perl (in theory) supports C89, where expl() doesn't exist (though long doubles do), so our tests shouldn't fail if expl() isn't available. Of course, the NetBSD libm does supply an implementation of expl(), it's just not a long double implementation.
-rw-r--r--t/op/sprintf2.t7
1 files changed, 7 insertions, 0 deletions
diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t
index af448cd41b..7cb5d9bf40 100644
--- a/t/op/sprintf2.t
+++ b/t/op/sprintf2.t
@@ -684,6 +684,13 @@ for my $t (@hexfloat) {
}
}
}
+ if (!$ok && $^O eq "netbsd" && $t->[1] eq "exp(1)") {
+ SKIP:
+ {
+ skip "NetBSD's expl() is just exp() in disguise", 1;
+ }
+ next;
+ }
ok($ok, "'$format' '$arg' -> '$result' cf '$expected'");
}