diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-03-20 02:40:34 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-20 09:01:05 +0000 |
| commit | 02daf0ab3f11bf85e3739683ba94241d1c4cf8b2 (patch) | |
| tree | cb6815c0462ba728608ac715097e05c9ebf36e64 /t/op/pat.t | |
| parent | b5dffda6f343ffd74e5c9a395a43ef0450d6727b (diff) | |
| download | perl-02daf0ab3f11bf85e3739683ba94241d1c4cf8b2.tar.gz | |
feel the the baà (encoding problems in the regex engine)
Message-ID: <9b18b3110703191740m6bf21942p6521f3016ed8092f@mail.gmail.com>
p4raw-id: //depot/perl@30647
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 5bc68d7776..423822abac 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4316,6 +4316,16 @@ sub kt "Check that (?&..) to a buffer inside a (?|...) goes to the leftmost"); } +{ + use warnings; + local $Message = "ASCII pattern that really is utf8"; + my @w; + local $SIG{__WARN__}=sub{push @w,"@_"}; + my $c=qq(\x{DF}); + ok($c=~/${c}|\x{100}/); + ok(@w==0); +} + # Test counter is at bottom of file. Put new tests above here. #------------------------------------------------------------------- # Keep the following tests last -- they may crash perl @@ -4385,7 +4395,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 = 1650; + $::TestCount = 1652; print "1..$::TestCount\n"; } |