Merge branch 'master' of github.com:/perl6/roast

Raku · Jul 9, 2011 · 891dafc · 891dafc
2 parents 14975bd + 4fff7b4
commit 891dafc
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 5 deletions.
diff --git a/S02-builtin_data_types/assigning-refs.t b/S02-builtin_data_types/assigning-refs.t
@@ -36,7 +36,6 @@ plan 18;
   my %hash;
   try { %hash = ($hashref,) };
 
-  #?rakudo todo 'non-flattening hash refs'
   #?pugs todo 'non-flattening hash refs'
   is +%hash, 0, '%hash = ($hashref,) does not flatten the hashref';
 }

diff --git a/S02-builtin_data_types/declare.t b/S02-builtin_data_types/declare.t
@@ -44,6 +44,7 @@ plan 84;
  isa_ok($namcu,Bit);
 }
 
+#?rakudo skip 'Regex not implemented'
 {
  my Regex $morna;
  isa_ok($morna, Regex);
@@ -233,11 +234,13 @@ plan 84;
  isa_ok($pare,Blob  );
 }
 
+#?rakudo skip 'Instant not implemented'
 {
  my Instant $paci;
  isa_ok($paci,Instant  );
 }
 
+#?rakudo skip 'Duration not implemented'
 {
  my Duration $pavo;
  isa_ok($pavo,Duration  );
@@ -323,6 +326,7 @@ plan 84;
  isa_ok($remu,Macro  );
 }
 
+#?rakudo skip 'Match not implemented'
 {
  my Match $rexa;
  isa_ok($rexa,Match  );
@@ -346,11 +350,13 @@ plan 84;
  isa_ok($reso,Class  );
 }
 
+#?rakudo skip 'Role not implemented'
 {
  my Role $cino;
  isa_ok($cino, Role );
 }
 
+#?rakudo skip 'Gramamar not implemented'
 {
  my Grammar $cire;
  isa_ok($cire,Grammar  );
@@ -380,6 +386,7 @@ plan 84;
   isa_ok($mapti, Matcher);
 }
 
+#?rakudo skip 'Proxy isa not implemented'
 {
   my Proxy $krati;
   isa_ok($krati, Proxy);
@@ -436,6 +443,7 @@ plan 84;
   ok($kansa ~~ Associative,'Associative exists');
 }
 
+#?rakudo skip 'Abstraction not implemented'
 {
   my Abstraction $sucta;
   ok($sucta ~~ Abstraction,'Abstraction exists');

diff --git a/S02-builtin_data_types/mixed_multi_dimensional.t b/S02-builtin_data_types/mixed_multi_dimensional.t
@@ -48,13 +48,11 @@ Some deeper tests were already added.
     isa_ok(@array, Array);
 
     my %hash = ('key', 'value', 'key1', 'value1');
-    #?rakudo todo 'isa hash'
     isa_ok(%hash, Hash);
     is(+%hash.keys, 2, 'our hash has two keys');
 
     @array[0] = %hash;
     is(+@array, 1, 'the array has one value in it');
-    #?rakudo todo 'isa hash'
     isa_ok(@array[0], Hash);
     is(@array[0]{"key"}, 'value', 'got the right value for key');
     is(@array[0]<key1>, 'value1', 'got the right value1 for key1');
@@ -98,7 +96,6 @@ Some deeper tests were already added.
 # UNSPECCED
 { # Hash of Arrays
     my %hash;
-    #?rakudo todo 'isa hash'
     isa_ok(%hash, Hash);
 
     %hash<key> = [ 1, 2, 3 ];
@@ -129,7 +126,6 @@ Some deeper tests were already added.
 { # Hash of Array-refs
   # UNSPECCED
     my %hash;
-    #?rakudo todo 'isa hash'
     isa_ok(%hash, Hash);
 
     my @array = ( 1, 2, 3 );
@@ -166,7 +162,9 @@ Some deeper tests were already added.
   my $a0 = [ \%h ,'extra' ];
   my $a1 = [ \%h ];
   my $a2 = [ $hr ];
+  #?rakudo todo 'nom regression'
   is($a0.elems,2,'hash references should not get decomposed');
+  #?rakudo todo 'nom regression'
   is($a1.elems,1,'hash references should not get decomposed');
   is($a2.elems,1,'hash references should not get decomposed');
 }
@@ -176,6 +174,7 @@ Some deeper tests were already added.
     isa_ok($h<a>.WHAT, Array, "array nested in hashref in one declaration");
 }
 
+#?rakudo 18 skip 'nom regression'
 { # structures deeper than 2 levels
     my @array;
     @array[0][0][0][0][0] = 5;

diff --git a/S02-builtin_data_types/multi_dimensional_array.t b/S02-builtin_data_types/multi_dimensional_array.t
@@ -83,6 +83,7 @@ is(+$multi2, 2, 'the multi2 has 2 elements');
     is(+$array, 3, 'multi2[0] has 3 elements');
     is(+$multi2[0], 3, '+$multi2[0] works');
 }
+#?rakudo todo 'nom regression'
 isa_ok($multi2[0], List);
 
 # slice