Change 33087 by [EMAIL PROTECTED] on 2008/01/28 10:46:43
Test that lc, uc, etc on undef return ""
Affected files ...
... //depot/perl/t/op/lc.t#19 edit
Differences ...
==== //depot/perl/t/op/lc.t#19 (text) ====
Index: perl/t/op/lc.t
--- perl/t/op/lc.t#18~31377~ 2007-06-14 04:06:02.000000000 -0700
+++ perl/t/op/lc.t 2008-01-28 02:46:43.000000000 -0800
@@ -6,7 +6,12 @@
require './test.pl';
}
-plan tests => 88;
+plan tests => 92;
+
+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";
End of Patch.
