From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 28 Jan 2008 10:46:43 +0000 (+0000)
Subject: Test that lc, uc, etc on undef return ""
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c6502f5c7c927d82523e421275ac87013ce318d5;p=p5sagit%2Fp5-mst-13.2.git

Test that lc, uc, etc on undef return ""

p4raw-id: //depot/perl@33087
---

diff --git a/t/op/lc.t b/t/op/lc.t
index 1cef380..4bfefb7 100644
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -6,7 +6,12 @@ BEGIN {
     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";