Change 18273 by jhi@lyta on 2002/12/09 22:48:39
Add Nick Clark's test case for [perl #18931].
(The bug was fixed by change #18266.)
Affected files ...
... //depot/maint-5.8/perl/t/op/lc.t#6 edit
Differences ...
==== //depot/maint-5.8/perl/t/op/lc.t#6 (text) ====
Index: perl/t/op/lc.t
--- perl/t/op/lc.t#5~18271~ Sun Dec 8 18:41:11 2002
+++ perl/t/op/lc.t Mon Dec 9 14:48:39 2002
@@ -6,7 +6,7 @@
require './test.pl';
}
-plan tests => 55;
+plan tests => 57;
$a = "HELLO.* world";
$b = "hello.* WORLD";
@@ -138,3 +138,14 @@
($c = $a) =~ s/(\w+)/ucfirst($1)/ge;
ok($c eq "\x{3a3}foo.Bar", "Using s///e to change case.");
+
+# #18931: perl5.8.0 bug in \U..\E processing
+# Test case from Nick Clark.
+for my $a (0,1) {
+ $_ = 'abcdefgh';
+ $_ .= chr 256;
+ chop;
+ /(.*)/;
+ is(uc($1), "ABCDEFGH", "[perl #18931]");
+}
+
End of Patch.
