diff options
author | Tony Cook <tony@develop-help.com> | 2020-06-17 02:07:19 +0000 |
---|---|---|
committer | Sawyer X <xsawyerx@cpan.org> | 2020-06-20 19:30:29 +0300 |
commit | 4233e039adeeb27cae74b1802b61321ff477a77c (patch) | |
tree | b7b417cc490fc1fe69d0c29434ca8eafe9866aae | |
parent | 286ba7099657d11792d0b9a12ba23a35f37c2e12 (diff) | |
download | perl-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.t | 7 |
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'"); } |