Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…
Cannot retrieve contributors at this time
23 lines (17 sloc) 765 Bytes
use v6;
use Test;
plan 9;
# L<S32::Str/Str/ucfirst>
is tc("hello world"), "Hello world", "simple";
is tc(""), "", "empty string";
is tc("üüüü"), "Üüüü", "umlaut";
is tc("óóóó"), "Óóóó", "accented chars";
# RT #124683
#?rakudo.jvm 2 todo 'RT #124683'
is tc('ßß'), 'Ssß', 'sharp s => Ss';
is tc('lj'), 'Lj', 'lj => Lj (in one character)';
is 'abc'.tc, 'Abc', 'method form of title case';
is 'aBcD'.tc, 'ABcD', 'tc only modifies first character';
#?rakudo.jvm todo 'tc works on codepoints greater than 0xffff RT #124684'
is "\x1044E\x10427".tc, "\x10426\x10427", 'tc works on codepoints greater than 0xffff';
# vim: ft=perl6
Jump to Line
Something went wrong with that request. Please try again.