diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-02 15:21:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-02-02 15:21:23 +0000 |
| commit | ce97f9d69d26783e9803b3879ab49cfe84d4b1ab (patch) | |
| tree | 14ed5f98790c2768cd453eb59364f7303c1f63a5 /t/op | |
| parent | 8341137e73854ccf1c8dbefcce353c69591ebb68 (diff) | |
| download | perl-ce97f9d69d26783e9803b3879ab49cfe84d4b1ab.tar.gz | |
[perl #15397] seems to have been fixed; add its test.
p4raw-id: //depot/perl@18630
Diffstat (limited to 't/op')
| -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 + |