This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
hexfp: these should be tested only with uselongdouble.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 4 Dec 2015 22:04:34 +0000 (17:04 -0500)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Dec 2015 00:09:44 +0000 (19:09 -0500)
t/op/sprintf2.t

index 48986f0..9d369cb 100644 (file)
@@ -666,7 +666,9 @@ 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');
+        unless ($Config{doublekind} == 4 &&
+                $^O eq 'linux' &&
+                $Config{uselongdouble});
     # [rt.perl.org 125633]
     like(sprintf("%La\n", (2**1020) + (2**-1072)),
          qr/^0x1.0{522}1p\+1020$/);