diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-12-06 10:03:48 -0500 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2015-12-07 00:42:34 +0000 |
commit | 51b08a51ddedbde437e8f79b55ab9f6313b0c58a (patch) | |
tree | 6bf28a761c49d38b05afb57624499dfdc554211b | |
parent | a0a02d15d36b673efaac1e8c47f5cbb17dbffe0d (diff) | |
download | perl-51b08a51ddedbde437e8f79b55ab9f6313b0c58a.tar.gz |
hexfp: test longdblkind directly, instead of doublekind
Also, explain the gating on linux on this test.
(suggested by Aaron Crane)
(cherry picked from commit 796fb084743bf6c50eb8862031573a2e2b9a303e)
-rw-r--r-- | t/op/sprintf2.t | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t index 9d369cb32d..03a5d33cdf 100644 --- a/t/op/sprintf2.t +++ b/t/op/sprintf2.t @@ -665,10 +665,16 @@ for my $t (@hexfloat) { # double-double long double %a special testing. SKIP: { - skip("$^O doublekind=$Config{doublekind}", 6) - unless ($Config{doublekind} == 4 && - $^O eq 'linux' && - $Config{uselongdouble}); + skip("uselongdouble=$Config{uselongdouble} longdblkind=$Config{longdblkind} os=$^O", 6) + unless ($Config{uselongdouble} && + ($Config{longdblkind} == 5 || + $Config{longdblkind} == 6) + # TODO: gating on 'linux' here is only due to lack of + # testing in other big-endian platforms (e.g. AIX or IRIX), + # with more evidence this subtest could be either relaxed + # or removed. + && $^O eq 'linux' + ); # [rt.perl.org 125633] like(sprintf("%La\n", (2**1020) + (2**-1072)), qr/^0x1.0{522}1p\+1020$/); |