Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Unfudge passing tests
  • Loading branch information
usev6 committed Jan 25, 2015
1 parent 7d17de6 commit 0630ae1
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 4 deletions.
1 change: 0 additions & 1 deletion S12-methods/method-vs-sub.t
Expand Up @@ -10,7 +10,6 @@ class test {
sub foo($a) { 'sub' }; #OK not used
my $obj = test.new;

#?rakudo skip 'confused near "($obj:), "'
#?niecza skip 'Invocant handling is NYI'
is foo($obj:), 'method', 'method with colon notation';
is $obj.foo, 'method', 'method with dot notation';
Expand Down
4 changes: 1 addition & 3 deletions S32-str/capitalize.t
Expand Up @@ -6,7 +6,6 @@ plan 17;

# L<S32::Str/Str/wordcase>

#?rakudo.parrot skip 'related to RT #117889'
is wordcase(""), "", "wordcase('') works";
is wordcase("puGS Is cOOl!"), "Pugs Is Cool!", "wordcase('...') works";
is "puGS Is cOOl!".wordcase, "Pugs Is Cool!", "'...'.wordcase works";
Expand All @@ -15,7 +14,6 @@ is "don't sit under the apple tree".wordcase, "Don't Sit Under The Apple Tree",
is "tir-na nog'th".wordcase, "Tir-na Nog'th", "wordcase works properly with apostrophes and dashes";

my $a = "";
#?rakudo.parrot skip 'related to RT #117889'
is wordcase($a), "", "wordcase empty string";
$a = "puGS Is cOOl!";
is wordcase($a), "Pugs Is Cool!", "wordcase string works";
Expand All @@ -39,7 +37,7 @@ is wordcase("a\c[COMBINING DIAERESIS]üö abcä"), "Äöü Abcä", 'wordcase on
is wordcase("a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc"),
"A\c[COMBINING DOT BELOW, COMBINING DOT ABOVE] Bc",
"wordcase on string with grapheme without precomposed";

# rest of the tests are moved from uc.t
is ~(0.wordcase), ~0, '.wordcase on Int';

Expand Down

0 comments on commit 0630ae1

Please sign in to comment.