Unfudge passing tests for JVM

(some of those annoying UnwindExceptions are gone)
Raku · Dec 13, 2015 · b67ba84 · b67ba84
1 parent 6bafc92
commit b67ba84
Show file tree

Hide file tree

Showing 4 changed files with 1 addition and 6 deletions.
diff --git a/S04-statements/gather.t b/S04-statements/gather.t
@@ -201,7 +201,6 @@ plan 36;
 }
 
 # tests for the S04-control.pod document
-#?rakudo.jvm skip "unwind RT #124279"
 {
     my @list = 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, 5, 6, 6;
     my @uniq = gather for @list {

diff --git a/S05-substitution/subst.t b/S05-substitution/subst.t
@@ -62,7 +62,6 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
     is 'a b c d'.subst(/\w/, 'x', :x(5)),   'a b c d', '.subst and :x(5)';
     is 'a b c d'.subst(/\w/, 'x', :x(*)),   'x x x x', '.subst and :x(*)';
 
-    #?rakudo.jvm 5 skip 'RT #124279'
     is 'a b c d'.subst(/\w/, 'x', :x(0..1)), 'x b c d', '.subst and :x(0..1)';
     is 'a b c d'.subst(/\w/, 'x', :x(1..3)), 'x x x d', '.subst and :x(0..3)';
     is 'a b c d'.subst(/\w/, 'x', :x(3..5)), 'x x x x', '.subst and :x(3..5)';
@@ -98,7 +97,7 @@ is '12'.subst(/(.)(.)/,{$()*2}),'24', '.. and do nifty things in closures';
     is 'a b c d'.subst(/\w/, 'x', :nth(5)), 'a b c d', '.subst and :nth(5)';
 
     # string pattern versions
-    #?rakudo.jvm skip 'RT #124279'
+    #?rakudo.jvm todo 'Code does not die'
     throws-like '"a a a a".subst("a", "x", :nth(0))', Exception, message => rx/nth/; # RT #125815
     is 'a a a a'.subst('a', 'x', :nth(1)), 'x a a a', '.subst (str pattern) and :nth(1)';
     is 'a a a a'.subst('a', 'x', :nth(2)), 'a x a a', '.subst (str pattern) and :nth(2)';

diff --git a/S32-list/rotor.t b/S32-list/rotor.t
@@ -17,13 +17,11 @@ sub r(\pos, $expected, $descr? is copy, *%named) {
 }
 
 r(3, 'a b c|d e f');
-#?rakudo.jvm skip 'UnwindException RT #124279'
 r(3, :partial, 'a b c|d e f|g h');
 r(2 => 1, 'a b|d e|g h');
 r(3 => -1, 'a b c|c d e|e f g');
 r((2, 3), 'a b|c d e|f g');
 r((1 => 1, 3), 'a|c d e|f');
-#?rakudo.jvm 2 skip 'UnwindException RT #124279'
 r((1 => 1, 3), :partial, 'a|c d e|f|h');
 r((1 => 1, 3 => -1), :partial, 'a|c d e|e|g h');
 

diff --git a/S32-str/comb.t b/S32-str/comb.t
@@ -105,7 +105,6 @@ is (<a ab>, <bc ad ba>).comb(m:Perl5/\S*a\S*/), <a ab ad ba>,
 
 # RT #123760
 {
-    #?rakudo.jvm skip "RT #124279 - UnwindException"
     is comb("o","ooo"), <o o o>, "comb(Str,Str)";
     is "qqq".comb("q"), <q q q>, "Str.comb(Str)";
     is "asdf".comb("z"), (), "Str.comb(Str) with no match";