Change 33775: Add a test for "lc(LATIN CAPITAL LETTER SHARP S)"

[Rafael Garcia-Suarez]

Change 33775 by [EMAIL PROTECTED] on 2008/04/30 15:56:18

        Add a test for "lc(LATIN CAPITAL LETTER SHARP S)"

Affected files ...

... //depot/perl/t/op/lc.t#20 edit

Differences ...

==== //depot/perl/t/op/lc.t#20 (text) ====
Index: perl/t/op/lc.t
--- perl/t/op/lc.t#19~33087~    2008-01-28 02:46:43.000000000 -0800
+++ perl/t/op/lc.t      2008-04-30 08:56:18.000000000 -0700
@@ -6,7 +6,7 @@
     require './test.pl';
 }
 
-plan tests => 92;
+plan tests => 93;
 
 is(lc(undef),     "", "lc(undef) is ''");
 is(lcfirst(undef), "", "lcfirst(undef) is ''");
@@ -217,3 +217,6 @@
     lc $_;
     is($_, "Hello");
 }
+
+# new in Unicode 5.1.0
+is(lc("\x{1E9E}"), "\x{df}", "lc(LATIN CAPITAL LETTER SHARP S)");
End of Patch.