require './test.pl';
}
-plan tests => 20;
+plan tests => 24;
my $a = 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;
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");
}
{