You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
71 lines
2.6 KiB
71 lines
2.6 KiB
From b52b6c4029b51818442d64c6104d26e12e140f09 Mon Sep 17 00:00:00 2001 |
|
From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> |
|
Date: Thu, 5 Nov 2020 22:06:16 +0900 |
|
Subject: [PATCH] t/op/inc.t, t/op/hexfp.t, t/op/sprintf2.t: Add missing d_ |
|
prefixes for Config variable names. |
|
MIME-Version: 1.0 |
|
Content-Type: text/plain; charset=UTF-8 |
|
Content-Transfer-Encoding: 8bit |
|
|
|
Signed-off-by: Petr Písař <ppisar@redhat.com> |
|
--- |
|
t/op/hexfp.t | 2 +- |
|
t/op/inc.t | 4 ++-- |
|
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. |
|
-- |
|
2.25.4 |
|
|
|
|