diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2005-07-08 01:43:24 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2005-07-08 01:43:24 +0000 |
| commit | 809e8e66a971d59a948ca995e08b228927d82c66 (patch) | |
| tree | 33609227a5c39d8275b46495de836f85a5eaa912 /t | |
| parent | 27cc343c4fb8030e5afb7c3824647d9e5e1d08d6 (diff) | |
| download | perl-809e8e66a971d59a948ca995e08b228927d82c66.tar.gz | |
[perl #36207] UTF8/Latin 1/i regexp "Malformed character" warning
$utf8 =~ /latin/i didn't match.
Also added TODO for $latin =~ /utf8/i which also fails
p4raw-id: //depot/perl@25095
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index ce5d7a2b55..795177bf46 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..1178\n"; +print "1..1180\n"; BEGIN { chdir 't' if -d 't'; @@ -3364,4 +3364,14 @@ ok(("foba ba$s" =~ qr/(foo|BaSS|bar)/i) my $psycho=join "|",@normal,map chr $_,255..20000; ok(('these'=~/($psycho)/) && $1 eq 'these','Pyscho'); } -# last test 1178 + +# [perl #36207] mixed utf8 / latin-1 and case folding + +{ + my $u = "\xe9\x{100}"; + chop $u; + ok($u =~ /\xe9/i, "utf8/latin"); + ok("\xe9" =~ /$u/i, "# TODO latin/utf8"); +} + +# last test 1180 |