Permalink
Browse files

[t/spec] Refudge capitalize.t.

git-svn-id: http://svn.pugscode.org/pugs@29868 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 0b0c8df commit 9ed4caeef98cb106baa896c6cffd596eae0026b2 colomon committed Feb 26, 2010
Showing with 2 additions and 3 deletions.
  1. +2 −3 S32-str/capitalize.t
View
@@ -14,7 +14,6 @@ my $a = "";
is capitalize($a), "", "capitalize empty string";
$a = "puGS Is cOOl!";
is capitalize($a), "Pugs Is Cool!", "capitalize string works";
-#?rakudo skip 'calling positional args by name'
is capitalize(:string($a)), "Pugs Is Cool!", "capitalize string works with positional argument";
is $a, "puGS Is cOOl!", "original string not touched";
is $a.capitalize, "Pugs Is Cool!", "capitalize string works";
@@ -28,10 +27,9 @@ is "ab cD Ef".capitalize, "Ab Cd Ef", "works on ordinary string";
}
# Non-ASCII chars:
-# rakudo skip "unicode"
is capitalize("äöü abcä"), "Äöü Abcä", "capitalize() works on non-ASCII chars";#
-#?rakudo 2 skip 'graphemes not implemented'
+#?rakudo 2 todo 'graphemes results wrong'
is capitalize("a\c[COMBINING DIAERESIS]üö abcä"), "Äöü Abcä", 'capitalize on string with grapheme precomposed';
is capitalize("a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc"),
"A\c[COMBINING DOT BELOW, COMBINING DOT ABOVE] Bc",
@@ -40,6 +38,7 @@ is capitalize("a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc"),
# rest of the tests are moved from uc.t
is ~(0.capitalize), ~0, '.capitalize on Int';
+#?rakudo todo "Roles do not behave as this test expects yet"
{
role A {
has $.thing = 3;

0 comments on commit 9ed4cae

Please sign in to comment.