Skip to content

Commit 0630ae1

Browse files
committed
Unfudge passing tests
1 parent 7d17de6 commit 0630ae1

File tree

2 files changed

+1
-4
lines changed

2 files changed

+1
-4
lines changed

S12-methods/method-vs-sub.t

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,6 @@ class test {
1010
sub foo($a) { 'sub' }; #OK not used
1111
my $obj = test.new;
1212

13-
#?rakudo skip 'confused near "($obj:), "'
1413
#?niecza skip 'Invocant handling is NYI'
1514
is foo($obj:), 'method', 'method with colon notation';
1615
is $obj.foo, 'method', 'method with dot notation';

S32-str/capitalize.t

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6,7 +6,6 @@ plan 17;
66

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

9-
#?rakudo.parrot skip 'related to RT #117889'
109
is wordcase(""), "", "wordcase('') works";
1110
is wordcase("puGS Is cOOl!"), "Pugs Is Cool!", "wordcase('...') works";
1211
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",
1514
is "tir-na nog'th".wordcase, "Tir-na Nog'th", "wordcase works properly with apostrophes and dashes";
1615

1716
my $a = "";
18-
#?rakudo.parrot skip 'related to RT #117889'
1917
is wordcase($a), "", "wordcase empty string";
2018
$a = "puGS Is cOOl!";
2119
is wordcase($a), "Pugs Is Cool!", "wordcase string works";
@@ -39,7 +37,7 @@ is wordcase("a\c[COMBINING DIAERESIS]üö abcä"), "Äöü Abcä", 'wordcase on
3937
is wordcase("a\c[COMBINING DOT ABOVE, COMBINING DOT BELOW] bc"),
4038
"A\c[COMBINING DOT BELOW, COMBINING DOT ABOVE] Bc",
4139
"wordcase on string with grapheme without precomposed";
42-
40+
4341
# rest of the tests are moved from uc.t
4442
is ~(0.wordcase), ~0, '.wordcase on Int';
4543

0 commit comments

Comments
 (0)