diff options
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 7a324dbdf0..7386f26977 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..972\n"; +print "1..977\n"; BEGIN { chdir 't' if -d 't'; @@ -3061,4 +3061,11 @@ ok(/[^\d]+/, "m/[^\d]/ utf8"); ok(($a = $_, $_ =~ s/[^\s]+/./g), "s/[^\s]/ utf8"); ok(($a = $_, $a =~ s/[^\d]+/./g), "s/[^\s]/ utf8"); -# last test 972 +ok("\x{100}" =~ /\x{100}/, "[perl #15397]"); +ok("\x{100}" =~ /(\x{100})/, "[perl #15397]"); +ok("\x{100}" =~ /(\x{100}){1}/, "[perl #15397]"); +ok("\x{100}\x{100}" =~ /(\x{100}){2}/, "[perl #15397]"); +ok("\x{100}\x{100}" =~ /(\x{100})(\x{100})/, "[perl #15397]"); + +# last test 977 + |