diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-01-31 11:20:59 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-31 08:24:53 +0000 |
| commit | 5dec093fd414e8adffdf65a1d75b0b0d7a2938c3 (patch) | |
| tree | 62e0e9629bdf5c180e0dc088327c7db4546a42cf /t | |
| parent | 68c03c1a4a512137101420548514238e4d2d85e5 (diff) | |
| download | perl-5dec093fd414e8adffdf65a1d75b0b0d7a2938c3.tar.gz | |
[FIX] Re: UTF-8 failures (surprise!)
Message-ID: <20030131072059.GB6045@ratsnest.hole>
p4raw-id: //depot/perl@18608
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 16212767b7..7a324dbdf0 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..968\n"; +print "1..972\n"; BEGIN { chdir 't' if -d 't'; @@ -3054,5 +3054,11 @@ print "\x{072F}" =~ /\P{Syriac1}/ ? "ok $test\n" : "not ok $test\n"; $test++; ok($a !~ /^\C{4}y/, q{don't match \C{4}y}); } -# last test 968 +$_ = 'aaaaaaaaaa'; +utf8::upgrade($_); chop $_; $\="\n"; +ok(/[^\s]+/, "m/[^\s]/ utf8"); +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 |