summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2021-10-16 18:06:44 +0000
committerNicholas Clark <nick@ccl4.org>2021-10-20 15:34:23 +0000
commit33042aafe7427f88db58e555390c82dd25ef9a28 (patch)
tree56a3df0e0d6d3d27ccdabb89941863b1d942003b /t
parent7c4cc0343c223680358a798ea6826c8c3a710db3 (diff)
downloadperl-33042aafe7427f88db58e555390c82dd25ef9a28.tar.gz
Fix the build and tests when NODEFAULT_SHAREKEYS is defined
Defining this macro causes newHV() to create hashes without shared hash key scalars. The default is that hashes are created with shared hash keys.
Diffstat (limited to 't')
-rw-r--r--t/op/tr.t6
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/tr.t b/t/op/tr.t
index cabcac65ac..f2bef94dfa 100644
--- a/t/op/tr.t
+++ b/t/op/tr.t
@@ -12,6 +12,7 @@ BEGIN {
}
use utf8;
+require Config;
plan tests => 315;
@@ -1032,9 +1033,12 @@ is($s, "AxBC", "utf8, DELETE");
is($c, "\x20\x30\x40\x50\x60", "tr/\\x00-\\x1f//d");
}
-($s) = keys %{{pie => 3}};
SKIP: {
if (!eval { require XS::APItest }) { skip "no XS::APItest", 2 }
+ skip "with NODEFAULT_SHAREKEYS there are few COWs", 2
+ if $Config::Config{ccflags} =~ /-DNODEFAULT_SHAREKEYS\b/;
+
+ ($s) = keys %{{pie => 3}};
my $wasro = XS::APItest::SvIsCOW($s);
ok $wasro, "have a COW";
$s =~ tr/i//;