diff options
author | Nicholas Clark <nick@ccl4.org> | 2021-05-13 08:58:53 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2021-05-22 08:22:26 +0000 |
commit | 756088ea0ed5891972ceb5882e0a5cd493e7213d (patch) | |
tree | 1a94090403982179725334852b9bc09982aa13cf /dist/Data-Dumper | |
parent | 2eb6b7eb0d54e988419c74183534a9e6307f059a (diff) | |
download | perl-756088ea0ed5891972ceb5882e0a5cd493e7213d.tar.gz |
More regression tests for perl #58608 (quoting / in qr//).
These somewhat duplicate the tests in t/qr.t. It's not clear if that file is
actually redundant now, or whether it tests some failure modes that this
file's &TEST setup can't.
Diffstat (limited to 'dist/Data-Dumper')
-rw-r--r-- | dist/Data-Dumper/t/dumper.t | 28 |
1 files changed, 27 insertions, 1 deletions
diff --git a/dist/Data-Dumper/t/dumper.t b/dist/Data-Dumper/t/dumper.t index aa5785920c..13f0b88884 100644 --- a/dist/Data-Dumper/t/dumper.t +++ b/dist/Data-Dumper/t/dumper.t @@ -139,7 +139,7 @@ sub SKIP_TEST { ++$TNUM; print "ok $TNUM # skip $reason\n"; } -$TMAX = 474; +$TMAX = 480; # Force Data::Dumper::Dump to use perl. We test Dumpxs explicitly by calling # it direct. Out here it lets us knobble the next if to test that the perl @@ -1734,6 +1734,32 @@ EOW } ############# { + # [more perl #58608 tests] + my $bs = "\\\\"; + $WANT = <<"EOW"; +#\$VAR1 = [ +# qr/ \\/ /, +# qr/ \\?\\/ /, +# qr/ $bs\\/ /, +# qr/ $bs:\\/ /, +# qr/ \\?$bs:\\/ /, +# qr/ $bs$bs\\/ /, +# qr/ $bs$bs:\\/ /, +# qr/ $bs$bs$bs\\/ / +#]; +EOW + if ($] lt '5.010001') { + $WANT =~ s!qr/!qr/(?-xism:!g; + $WANT =~ s! /! )/!g; + } + TEST qq(Data::Dumper->Dump([ [qr! / !, qr! \\?/ !, qr! $bs/ !, qr! $bs:/ !, qr! \\?$bs:/ !, qr! $bs$bs/ !, qr! $bs$bs:/ !, qr! $bs$bs$bs/ !, ] ])), + "more perl #58608"; + TEST qq(Data::Dumper->Dump([ [qr! / !, qr! \\?/ !, qr! $bs/ !, qr! $bs:/ !, qr! \\?$bs:/ !, qr! $bs$bs/ !, qr! $bs$bs:/ !, qr! $bs$bs$bs/ !, ] ])), + "more perl #58608 XS" + if $XS; +} +############# +{ # [perl #82948] # re::regexp_pattern was moved to universal.c in v5.10.0-252-g192c1e2 # and apparently backported to maint-5.10 |