diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-30 15:56:18 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-30 15:56:18 +0000 |
commit | aa4af5426d2beeb297fc20a3d1550455de5c929b (patch) | |
tree | 89d6da9bbe323cc34fdf39576a2f3e351f33c191 /t | |
parent | d4e5d774f797f108c133533b0d21df0cfad7c703 (diff) | |
download | perl-aa4af5426d2beeb297fc20a3d1550455de5c929b.tar.gz |
Add a test for "lc(LATIN CAPITAL LETTER SHARP S)"
p4raw-id: //depot/perl@33775
Diffstat (limited to 't')
-rw-r--r-- | t/op/lc.t | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -6,7 +6,7 @@ BEGIN { 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 @@ for ("$temp") { lc $_; is($_, "Hello"); } + +# new in Unicode 5.1.0 +is(lc("\x{1E9E}"), "\x{df}", "lc(LATIN CAPITAL LETTER SHARP S)"); |