This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hexfp: test longdblkind directly, instead of doublekind
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 6 Dec 2015 15:03:48 +0000 (10:03 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 6 Dec 2015 15:14:59 +0000 (10:14 -0500)
Also, explain the gating on linux on this test.

(suggested by Aaron Crane)

t/op/sprintf2.t

index 9d369cb..03a5d33 100644 (file)
@@ -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$/);