unfudge rakudo tests

Raku · Aug 30, 2013 · 7c89478 · 7c89478
1 parent 59c6970
commit 7c89478
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 9 deletions.
diff --git a/S02-types/bag.t b/S02-types/bag.t
@@ -44,7 +44,6 @@ sub showkv($x) {
     is +$b, 8, '+$bag gives sum of values';
 }
 
-#?rakudo skip "Bag.ACCEPTS NYI"
 {
     ok (bag <a b c>) ~~ (bag <a b c>), "Identical bags smartmatch with each other";
     ok (bag <a b c c>) ~~ (bag <a b c c>), "Identical bags smartmatch with each other";
@@ -174,7 +173,6 @@ sub showkv($x) {
     dies_ok { %b = bag <a b> }, "Can't assign to a %var implemented by Bag";
 }
 
-#?rakudo skip ".Bag NYI"
 {
     my $b = { foo => 10, bar => 1, baz => 2}.Bag;
 
@@ -193,7 +191,6 @@ sub showkv($x) {
     is $b.iterator.grep({True}).elems, 3, "... and nothing else";
 }
 
-#?rakudo skip ".Bag NYI"
 {
     my $b = { foo => 10000000000, bar => 17, baz => 42 }.Bag;
     my $s;
@@ -206,7 +203,6 @@ sub showkv($x) {
     is showkv($c), showkv($b), "... and it has the correct values";
 }
 
-#?rakudo skip ".Bag NYI"
 {
     my $b = { foo => 2, bar => 3, baz => 1 }.Bag;
     my $s;
@@ -216,7 +212,6 @@ sub showkv($x) {
     is $s.split(" ").sort.join(" "), "bar bar bar baz foo foo", "... which only contains bar baz and foo with the proper counts and separated by spaces";
 }
 
-#?rakudo skip ".Bag NYI"
 {
     my $b = { foo => 10000000000, bar => 17, baz => 42 }.Bag;
     my $s;
@@ -257,7 +252,6 @@ sub showkv($x) {
     ok @a.grep(* eq 'a') + 2 < @a.grep(* eq 'b'), '.roll(100) (2)';
 }
 
-#?rakudo skip ".Bag NYI"
 {
     my $b = {"a" => 100000000000, "b" => 1}.Bag;
 
@@ -289,7 +283,6 @@ sub showkv($x) {
     is @a.grep(* eq 'b').elems, 2, '.pick(*) (2)';
 }
 
-#?rakudo skip ".Bag NYI"
 {
     my $b = {"a" => 100000000000, "b" => 1}.Bag;
 

diff --git a/S03-operators/inplace.t b/S03-operators/inplace.t
@@ -47,7 +47,6 @@ my $g = "UPPERCASE"; $g .= lc;
 my $h = "lowercase"; $h .= tc;
 is($f, "LOWERCASE", "inplace uc");
 is($g, "uppercase", "inplace lc");
-#?rakudo skip 'tc'
 is($h, "Lowercase", "inplace tc");
 
 # L<S12/"Mutating methods">

diff --git a/S06-multi/type-based.t b/S06-multi/type-based.t
@@ -203,7 +203,6 @@ is(mmd(1..3), 2, 'Slurpy MMD to listop via list');
 }
 
 #?niecza skip 'no native types yet'
-#?rakudo.jvm skip "Cannot call 'rt107638'; none of these signatures match:"
 {
     # This once wrongly reported a multi-dispatch circularity.
     multi rt107638(int $a) { 'ok' }      #OK not used