Upgrade Module::Load::Conditional to 0.14

[p5sagit/p5-mst-13.2.git] / t / uni / lower.t

diff --git a/t/uni/lower.t b/t/uni/lower.t
index 4420d0b..76df6de 100644 (file)
--- 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) });