6
6
7
7
# L<S32::Str/Str/wordcase>
8
8
9
- # ?rakudo.parrot skip 'related to RT #117889'
10
9
is wordcase(" " ), " " , " wordcase('') works" ;
11
10
is wordcase(" puGS Is cOOl!" ), " Pugs Is Cool!" , " wordcase('...') works" ;
12
11
is " puGS Is cOOl!" . wordcase, " Pugs Is Cool!" , " '...'.wordcase works" ;
@@ -15,7 +14,6 @@ is "don't sit under the apple tree".wordcase, "Don't Sit Under The Apple Tree",
15
14
is " tir-na nog'th" . wordcase, " Tir-na Nog'th" , " wordcase works properly with apostrophes and dashes" ;
16
15
17
16
my $ a = " " ;
18
- # ?rakudo.parrot skip 'related to RT #117889'
19
17
is wordcase($ a ), " " , " wordcase empty string" ;
20
18
$ a = " puGS Is cOOl!" ;
21
19
is wordcase($ a ), " Pugs Is Cool!" , " wordcase string works" ;
@@ -39,7 +37,7 @@ is wordcase("a\c[COMBINING DIAERESIS]üö abcä"), "Äöü Abcä", 'wordcase on
39
37
is wordcase(" a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc" ),
40
38
" A\c[COMBINING DOT BELOW, COMBINING DOT ABOVE] Bc" ,
41
39
" wordcase on string with grapheme without precomposed" ;
42
-
40
+
43
41
# rest of the tests are moved from uc.t
44
42
is ~ (0 . wordcase), ~ 0, ' .wordcase on Int' ;
45
43
0 commit comments