Skip to content

Commit d97da19

Browse files
committed
Unfudge/unskip passing JVM tests
1 parent a19359e commit d97da19

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

S06-currying/assuming-and-mmd.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ plan 7;
88
# RT #77520 & RT #125155
99
# Block does Callable and http://design.perl6.org/S06.html#Priming says
1010
# Callable things can assume.
11-
#?rakudo.jvm todo 'probably optimizer bug RT #125207'
11+
# also RT #125207
1212
is( try { { $^a }.assuming(123)() }, 123, 'Assumptive Blocks' );
1313

1414
multi testsub (Str $x, $y) { "Str" } #OK not used
@@ -20,7 +20,7 @@ is testsub(23, 42), "Int", "basic MMD works (2)";
2020
is &testsub("a_str", 42), "Str", "basic MMD works with subrefs (1)";
2121
is &testsub(23, 42), "Int", "basic MMD works with subrefs (2)";
2222

23-
#?rakudo.jvm 2 skip 'probably optimizer bug RT #125207'
23+
# RT #125207
2424
#?niecza skip 'Unable to resolve method assuming in class Code'
2525
is &testsub.assuming("a_str")(42), "Str", "basic MMD works with assuming (1)";
2626
#?niecza skip 'Unable to resolve method assuming in class Code'

S06-currying/named.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,13 +10,13 @@ sub tester(:$a, :$b, :$c) {
1010
}
1111
my &tester2 = &tester.assuming(&tester, :b<b>);
1212

13-
#?rakudo.jvm skip 'probably optimizer bug RT #125207'
13+
# RT #125207
1414
{
1515
my $w = &tester.assuming(b => 'x');
1616
is $w(a => 'w', c => 'y'), 'aw bx cy', 'currying one named param';
1717
}
1818

19-
#?rakudo.jvm skip 'probably optimizer bug RT #125207'
19+
# RT #125207
2020
{
2121
my $w = &tester.assuming(b => 'b');
2222
my $v = $w.assuming(c => 'c');

0 commit comments

Comments
 (0)