[t/spec] correct a test for [,], and unfudge a few for rakudo

git-svn-id: http://svn.pugscode.org/pugs@30288 c213334d-75ef-0310-aa23-eaa082d1ae64

S02-literals/quoting.t

@@ -164,7 +164,6 @@ Note that non-ASCII tests are kept in quoting-unicode.t
     is(@q4[0], '$foo $bar', "and interpolates correctly");
 }
 
-#?rakudo todo '\\0 delimiters'
 { # quote with \0 as delimiters L<news:20050101220112.GF25432@plum.flirble.org>
     my @q = ();
     eval "\@q = (q\0foo bar\0)";
@@ -337,7 +336,6 @@ FOO
     @q = (Q/foo\\bar$foo/);
 
     is(+@q, 1, "Q// is singular");
-    #?rakudo todo 'special chars in Q/.../'
     is(@q[0], "foo\\\\bar\$foo", "special chars are meaningless"); # double quoting is to be more explicit
 };
 

S03-metaops/reduce.t

@@ -134,15 +134,14 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda">
   is (try {$list.value.value}), 3, "[=>] works (3)";
 }
 
-#?rakudo todo '[,] issues'
 {
     my @array = <5 -3 7 0 1 -9>;
     # according to http://irclog.perlgeek.de/perl6/2008-09-10#i_560910
     # [,] returns a scalar (holding an Array)
     my $count = 0;
     $count++ for [,] @array;
     is $count, 1, '[,] returns a single Array';
-    isa_ok ([,] @array), Array, '[,] returns something of type Array';
+    ok ([,] @array) ~~ Positional, '[,] returns something Positional';
 }
 
 # Following two tests taken verbatim from former t/operators/reduce.t

S12-methods/chaining.t

@@ -36,7 +36,6 @@ is($foo.num(), 20, '... got the right num value');
 
 my $_foo2 = $foo.baz(20);
 isa_ok($_foo2, Foo);
-#?rakudo todo '[===] bug?'
 ok( ([===]($foo, $_foo2, $_foo1)), '... $_foo1, $_foo2 and $foo are the same instances');
 
 is($foo.num(), 40, '... got the right num value');
@@ -49,7 +48,6 @@ lives_ok {
 }, '... method chaining works';
 
 isa_ok($_foo3, Foo);
-#?rakudo todo '[===] bug?'
 ok( ([===]($_foo3, $_foo2, $_foo1, $foo)),
     '... $_foo3, $_foo1, $_foo2 and $foo are the same instances');
 

S29-context/eval.t

@@ -44,7 +44,6 @@ dies_ok({eval {42}}, 'block eval is gone');
     is EvalTester1.new.e('5'),   5, 'eval works inside instance methods';
 }
 
-#?rakudo todo 'eval in methods'
 {
     my $x = 5;
     class EvalTester2 {