diff options
| author | TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> | 2020-11-05 22:06:16 +0900 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2020-11-09 23:59:42 +0000 |
| commit | b52b6c4029b51818442d64c6104d26e12e140f09 (patch) | |
| tree | 20a24a4bef7cff0c13871e0a7a7503f179d86084 | |
| parent | 15cc2555efa1d82f2858e2c7ba5622a844e06254 (diff) | |
| download | perl-b52b6c4029b51818442d64c6104d26e12e140f09.tar.gz | |
t/op/inc.t, t/op/hexfp.t, t/op/sprintf2.t: Add missing d_ prefixes for Config variable names.
| -rw-r--r-- | t/op/hexfp.t | 2 | ||||
| -rw-r--r-- | t/op/inc.t | 4 | ||||
| -rw-r--r-- | t/op/sprintf2.t | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/t/op/hexfp.t b/t/op/hexfp.t index b0c85cfdc6..5fb80d3d74 100644 --- a/t/op/hexfp.t +++ b/t/op/hexfp.t @@ -246,7 +246,7 @@ SKIP: { skip("non-80-bit-long-double", 4) unless ($Config{uselongdouble} && ($Config{nvsize} == 16 || $Config{nvsize} == 12) && - ($Config{long_double_style_ieee_extended})); + ($Config{d_long_double_style_ieee_extended})); is(0x1p-1074, 4.94065645841246544e-324); is(0x1p-1075, 2.47032822920623272e-324, '[perl #128919]'); is(0x1p-1076, 1.23516411460311636e-324); diff --git a/t/op/inc.t b/t/op/inc.t index 0bb8b85b13..3d5cc024d3 100644 --- a/t/op/inc.t +++ b/t/op/inc.t @@ -188,10 +188,10 @@ cmp_ok($a, '==', 2147483647, "postdecrement properly downgrades from double"); SKIP: { if ($Config{uselongdouble} && - ($Config{long_double_style_ieee_doubledouble})) { + ($Config{d_long_double_style_ieee_doubledouble})) { skip "the double-double format is weird", 1; } - unless ($Config{double_style_ieee}) { + unless ($Config{d_double_style_ieee}) { skip "the doublekind $Config{doublekind} is not IEEE", 1; } diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t index bbc12ccd0a..38a550c281 100644 --- a/t/op/sprintf2.t +++ b/t/op/sprintf2.t @@ -701,7 +701,7 @@ SKIP: { skip("uselongdouble=" . ($Config{uselongdouble} ? 'define' : 'undef') . " longdblkind=$Config{longdblkind} os=$^O", 6) unless ($Config{uselongdouble} && - ($Config{long_double_style_ieee_doubledouble}) + ($Config{d_long_double_style_ieee_doubledouble}) # Gating on 'linux' (ppc) here is due to the differing # double-double implementations: other (also big-endian) # double-double platforms (e.g. AIX on ppc or IRIX on mips) @@ -892,7 +892,7 @@ SKIP: { skip("non-80-bit-long-double", 17) unless ($Config{uselongdouble} && ($Config{nvsize} == 16 || $Config{nvsize} == 12) && - ($Config{long_double_style_ieee_extended})); + ($Config{d_long_double_style_ieee_extended})); { # The last normal for this format. |