summaryrefslogtreecommitdiff
path: root/t/op/tr.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/tr.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//;