various rakudo fudges and unfudges

Raku · Jul 10, 2011 · a9de2f6 · a9de2f6
1 parent 46ff167
commit a9de2f6
Show file tree

Hide file tree

Showing 5 changed files with 4 additions and 8 deletions.
diff --git a/S02-builtin_data_types/declare.t b/S02-builtin_data_types/declare.t
@@ -80,13 +80,11 @@ plan 84;
  isa_ok($porsi, Array);
 }
 
-#?rakudo skip 'RT #68726: Could not build C3 linearization: ambiguous hierarchy'
 {
  my Hash $brodi;
  isa_ok($brodi, Hash);
 }
 
-#?rakudo skip 'Buf NYI'
 {
  my Buf $nacpoi;
  isa_ok($nacpoi, Buf);
@@ -212,7 +210,6 @@ plan 84;
  isa_ok($bi,Range  );
 }
 
-#?rakudo skip 'Bag not implemented'
 {
  my Bag $so;
  isa_ok($so,Bag  );
@@ -246,7 +243,6 @@ plan 84;
  isa_ok($pavo,Duration  );
 }
 
-#?rakudo skip 'KeyHash not implemented'
 {
  my KeyHash $pamu;
  isa_ok($pamu,KeyHash  );
@@ -525,13 +521,11 @@ plan 84;
 # my Hash:of(Array:of(Recipe)) %book;
 # my Hash of Array of Recipe %book; my %book of Hash of Array of Recipe
 
-#?rakudo skip 'Array of Foo not yet implemented'
 {
   my Array of Int @box;
   ok(1,'Array of Int @box');
 }
 
-#?rakudo skip 'Array of Foo not yet implemented'
 {
   my Array of Array of Int @box;
   ok(1,'Array of Array of Int @box');

diff --git a/S02-literals/autoref.t b/S02-literals/autoref.t
@@ -50,6 +50,7 @@ plan 57;
     my %hash = (a => 1, b => 2, c => 3);
     my $ref  = \%hash;
 
+    #?rakudo todo 'backslashes, captures'
     is ~$ref.values.sort, "1 2 3", '$hashref = \%hash works (1)';
     is +$ref.values,            3, '$hashref = \%hash works (2)';
 }
@@ -168,6 +169,7 @@ plan 57;
     my %hash = (a => 1, b => 2, c => 3);
     my $pair = (key => \%hash);
 
+    #?rakudo todo 'backslashes, captures'
     is ~$pair.value.values.sort, "1 2 3", '(key => \%hash) works (1)';
     is +$pair.value.values,            3, '(key => \%hash) works (2)';
 }
@@ -204,6 +206,7 @@ plan 57;
     my %hash = (a => 1, b => 2, c => 3);
     my $pair = (:key(\%hash));
 
+    #?rakudo todo 'backslashes, captures'
     is ~$pair.value.values.sort, "1 2 3", '(:key(\%hash)) works (1)';
     is +$pair.value.values,            3, '(:key(\%hash)) works (2)';
 }

diff --git a/S03-sequence/basic.t b/S03-sequence/basic.t
@@ -134,7 +134,6 @@ is (1, 2 ... 0).munch(3), (1,2,3), 'No more: limit value is on the wrong side';
 
 
 # RT #75698
-#?rakudo skip 'junctions'
 ok ?(one((-5 ... ^5).flat) == 0), '-5 ... ^5 produces just one zero';
 
 # RT #75316

diff --git a/S06-multi/positional-vs-named.t b/S06-multi/positional-vs-named.t
@@ -28,7 +28,6 @@ is( earth(him => 2, me => 1, her => 3), 'me 1 him 2 her 3', 'named him named me
 is( earth(her => 3, me => 1, him => 2), 'me 1 him 2 her 3', 'named her named me named him');
 is( earth(her => 3, him => 2, me => 1), 'me 1 him 2 her 3', 'named her named him named me');
 
-#?rakudo skip 'No applicable candidates found - bug?'
 is( earth('b', you => 4),      'pos b you 4',       'pos, named you');
 is( earth('c', her => 3),      'pos c her 3',       'pos, named her');
 #?rakudo skip 'No applicable candidates found '

diff --git a/S32-list/pick.t b/S32-list/pick.t
@@ -77,6 +77,7 @@ is (<a b c d>.pick(*).sort).Str, 'a b c d', 'pick(*) returns all the items in th
 }
 
 {
+    #?rakudo todo 'error on pick :replace'
     dies_ok({ [1,2,3].pick(4, :replace) }, 'error on deprecated :replace');
 }