This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #117355] very basic tests for [ul]c(first)? under use bytes
authorTony Cook <tony@develop-help.com>
Mon, 15 Jul 2013 06:06:46 +0000 (16:06 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 12 Aug 2013 05:13:01 +0000 (15:13 +1000)
the [lu]cfirst tests are TODO due to #117355

lib/bytes.t

index c1ea9ea..6ac18df 100644 (file)
@@ -5,7 +5,7 @@ BEGIN {
     require './test.pl';
 }
 
     require './test.pl';
 }
 
-plan tests => 20;
+plan tests => 24;
 
 my $a = chr(0x100);
 
 
 my $a = chr(0x100);
 
@@ -28,6 +28,8 @@ is(bytes::chr(0x100), chr(0),  "bytes::chr sanity check");
 }
 
 my $c = chr(0x100);
 }
 
 my $c = chr(0x100);
+my $c2 = chr(0x2c7); # a unicode character that doesn't fold
+utf8::encode(my $c2_utf8 = $c2);
 
 {
     use bytes;
 
 {
     use bytes;
@@ -56,6 +58,13 @@ my $c = chr(0x100);
         is(bytes::rindex($c, "\xc4"), 0, "bytes::rindex under use bytes looks at bytes");
     }
     
         is(bytes::rindex($c, "\xc4"), 0, "bytes::rindex under use bytes looks at bytes");
     }
     
+    # [perl #117355] [lu]cfirst don't respect 'use bytes'
+    # and if there's other tests for lc/uc under bytes I didn't find them
+    is(lc($c2), $c2_utf8, "lc under use bytes returns bytes");
+    is(uc($c2), $c2_utf8, "uc under use bytes returns bytes");
+    local $TODO = "[perl #117355] [lu]cfirst don't respect 'use bytes'";
+    is(lcfirst($c2), $c2_utf8, "lcfirst under use bytes returns bytes");
+    is(ucfirst($c2), $c2_utf8, "unfirst under use bytes returns bytes");
 }
 
 {
 }
 
 {