diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-06-03 19:21:55 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-03 15:36:25 +0000 |
| commit | c490c714018f95e6fedac7e6bef61da086a72f4c (patch) | |
| tree | 05b6f366984a2c1315b3224cef383caa19405392 /t/op/pat.t | |
| parent | bfbf02a1bb78f5006578304da872a3d29b074c1f (diff) | |
| download | perl-c490c714018f95e6fedac7e6bef61da086a72f4c.tar.gz | |
Re: BBC(Bleadperl Breaks CPAN) Today: String::Multibyte
Message-ID: <9b18b3110706030821u39460f96ic342dda8ba9fcdf7@mail.gmail.com>
p4raw-id: //depot/perl@31328
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 367b0bb490..dcedd2864b 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4381,6 +4381,18 @@ sub kt } } } +{ + local $Message = "BBC(Bleadperl Breaks CPAN) Today: String::Multibyte"; + my $re = qr/(?:[\x00-\xFF]{4})/; + my $hyp = "\0\0\0-"; + my $esc = "\0\0\0\\"; + + my $str = "$esc$hyp$hyp$esc$esc"; + my @a = ($str =~ /\G(?:\Q$esc$esc\E|\Q$esc$hyp\E|$re)/g); + + iseq(0+@a,3); + iseq(join('=', @a),"$esc$hyp=$hyp=$esc$esc"); +} # Test counter is at bottom of file. Put new tests above here. #------------------------------------------------------------------- # Keep the following tests last -- they may crash perl @@ -4462,7 +4474,7 @@ ok($@=~/\QSequence \k... not terminated in regex;\E/); iseq(0+$::test,$::TestCount,"Got the right number of tests!"); # Don't forget to update this! BEGIN { - $::TestCount = 1948; + $::TestCount = 1950; print "1..$::TestCount\n"; } |