Fudge tests for method assumoing on JVM, RT #125207

Raku · May 17, 2015 · 6302ae8 · 6302ae8
1 parent 1aa6326
commit 6302ae8
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 0 deletions.
diff --git a/S06-currying/assuming-and-mmd.t b/S06-currying/assuming-and-mmd.t
@@ -8,6 +8,7 @@ plan 7;
 # RT #77520 & RT #125155
 # Block does Callable and http://design.perl6.org/S06.html#Priming says
 # Callable things can assume.
+#?rakudo.jvm todo 'probably optimizer bug RT #125207'
 is( try { { $^a }.assuming(123)() }, 123, 'Assumptive Blocks' );
 
 multi testsub (Str $x, $y) { "Str" }    #OK not used
@@ -19,6 +20,7 @@ is testsub(23,      42), "Int", "basic MMD works (2)";
 is &testsub("a_str", 42), "Str", "basic MMD works with subrefs (1)";
 is &testsub(23,      42), "Int", "basic MMD works with subrefs (2)";
 
+#?rakudo.jvm 2 skip 'probably optimizer bug RT #125207'
 #?niecza skip 'Unable to resolve method assuming in class Code'
 is &testsub.assuming("a_str")(42), "Str", "basic MMD works with assuming (1)";
 #?niecza skip 'Unable to resolve method assuming in class Code'

diff --git a/S06-currying/named.t b/S06-currying/named.t
@@ -8,11 +8,13 @@ sub tester(:$a, :$b, :$c) {
     "a$a b$b c$c";
 }
 
+#?rakudo.jvm skip 'probably optimizer bug RT #125207'
 {
     my $w = &tester.assuming(b => 'x');
     is $w(a => 'w', c => 'y'), 'aw bx cy', 'currying one named param';
 }
 
+#?rakudo.jvm skip 'probably optimizer bug RT #125207'
 {
     my $w = &tester.assuming(b => 'b');
     my $v =  $w.assuming(c => 'c');

diff --git a/S32-list/map.t b/S32-list/map.t
@@ -250,6 +250,7 @@ is( ~((1..3).map: { dbl( $_ ) }),'2 4 6','extern method in map');
 
 # RT #112596
 #?niecza todo "https://github.com/sorear/niecza/issues/182"
+#?rakudo.jvm skip 'probably optimizer bug RT #125207'
 {
     my @a = map &sprintf.assuming("%x"), 9..12;
     is(@a, <9 a b c>, "map over a callable with a slurpy");