require './test.pl';
}
-plan tests => 87;
+plan tests => 93;
+
+is(lc(undef), "", "lc(undef) is ''");
+is(lcfirst(undef), "", "lcfirst(undef) is ''");
+is(uc(undef), "", "uc(undef) is ''");
+is(ucfirst(undef), "", "ucfirst(undef) is ''");
$a = "HELLO.* world";
$b = "hello.* WORLD";
is(lc "\x{0130}" x $_, "i\x{307}" x $_, 'lc U+0130 grows');
}
+
+# bug #43207
+my $temp = "Hello";
+for ("$temp") {
+ lc $_;
+ is($_, "Hello");
+}
+
+# new in Unicode 5.1.0
+is(lc("\x{1E9E}"), "\x{df}", "lc(LATIN CAPITAL LETTER SHARP S)");