X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Funi%2Flower.t;h=76df6de09d009483a6e91182b861f4c47669b63d;hb=e163f9a0cad0e6bc632cba9a82e10b83f046f88d;hp=4420d0b165d102db1cea5e8588f6aea848ef454c;hpb=23cd9172ab4c1e71bdfc3b5ce019766a0c5f966c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/uni/lower.t b/t/uni/lower.t
index 4420d0b..76df6de 100644
--- a/t/uni/lower.t
+++ b/t/uni/lower.t
@@ -4,5 +4,6 @@ BEGIN {
     require "case.pl";
 }
 
-casetest("Lower", \%utf8::ToSpecLower, sub { lc $_[0] });
-
+casetest("Lower", \%utf8::ToSpecLower,
+	 sub { lc $_[0] }, sub { my $a = ""; lc ($_[0] . $a) },
+	 sub { lcfirst $_[0] }, sub { my $a = ""; lcfirst ($_[0] . $a) });