This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
572cd85
)
hexfp: these should be tested only with uselongdouble.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Fri, 4 Dec 2015 22:04:34 +0000
(17:04 -0500)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Sat, 5 Dec 2015 00:09:44 +0000
(19:09 -0500)
t/op/sprintf2.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/sprintf2.t
b/t/op/sprintf2.t
index
48986f0
..
9d369cb
100644
(file)
--- a/
t/op/sprintf2.t
+++ b/
t/op/sprintf2.t
@@
-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$/);