Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (16 sloc) 0.73 kb
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";
#?rakudo 2 todo 'NYI'
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'
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.