diff --git a/S02-literals/quoting.t b/S02-literals/quoting.t index 14d97c28ff..8f81d81c9e 100644 --- a/S02-literals/quoting.t +++ b/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 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 }; diff --git a/S03-metaops/reduce.t b/S03-metaops/reduce.t index 81607debd9..5047f028f4 100644 --- a/S03-metaops/reduce.t +++ b/S03-metaops/reduce.t @@ -134,7 +134,6 @@ 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 @@ -142,7 +141,7 @@ L<"http://groups.google.de/group/perl.perl6.language/msg/bd9eb275d5da2eda"> 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 diff --git a/S12-methods/chaining.t b/S12-methods/chaining.t index 28d968b7e8..abb746b5ef 100644 --- a/S12-methods/chaining.t +++ b/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'); diff --git a/S29-context/eval.t b/S29-context/eval.t index dec19bbde4..debbeda33f 100644 --- a/S29-context/eval.t +++ b/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 {