summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2015-12-06 10:03:48 -0500
committerSteve Hay <steve.m.hay@googlemail.com>2015-12-07 00:42:34 +0000
commit51b08a51ddedbde437e8f79b55ab9f6313b0c58a (patch)
tree6bf28a761c49d38b05afb57624499dfdc554211b
parenta0a02d15d36b673efaac1e8c47f5cbb17dbffe0d (diff)
downloadperl-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.t14
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$/);