Permalink
Browse files

[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
  • Loading branch information...
1 parent b8f953a commit a246cb9a96ba28d2168dbd0388e8cdb9e638a4a4 moritz committed Apr 3, 2010
Showing with 1 addition and 7 deletions.
  1. +0 −2 S02-literals/quoting.t
  2. +1 −2 S03-metaops/reduce.t
  3. +0 −2 S12-methods/chaining.t
  4. +0 −1 S29-context/eval.t
View
@@ -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
};
View
@@ -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
View
@@ -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');
View
@@ -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 {

0 comments on commit a246cb9

Please sign in to comment.