Permalink
Browse files

rakudo unfudges

  • Loading branch information...
1 parent 4b79581 commit 0de66e08d53588cc2c44f88307f2d8f794f435c4 @moritz moritz committed Apr 15, 2012
View
@@ -33,7 +33,6 @@ plan 20;
ok eval(q/foo 1, 2; /), 'call with two args, no parens';
ok eval(q/foo(1, 2);/), 'call with two args, has parens';
- #?rakudo skip 'should parse as a routine foo:bar'
#?niecza skip 'Undeclared routine "foo:bar"'
ok eval(q/foo:bar; /), 'call with adverb after no space';
ok eval(q/foo :bar; /), 'call with adverb after space';
@@ -58,7 +58,6 @@ ok ~($!) ~~ /qwerty/, 'die without argument uses $! properly';
# - also tested more generically above.
# So no need to test the value of #! again here.
#is $!, 'goodbye', '$! has correct value after try';
- #?rakudo skip 'spec change pending (?)'
ok ($!), '$! as boolean works (true)';
try { eval q[ die('farewell'); ] };
View
@@ -31,7 +31,6 @@ plan 10;
our $rt69460 = 1;
eval_lives_ok 'class RT69460 { $GLOBAL::rt69460++ }',
'can compile a class that modifies our variable';
- #?rakudo skip 'RT 69460'
ok ::OUR::RT69460.new ~~ ::OUR::RT69460, 'can instantiate class that modifies our variable';
#?pugs todo
is $rt69460, 2, 'class can modify our variable';
@@ -171,7 +171,6 @@ use Test;
$ok++ if $!;
$ok++ if grtz == 42;
- #?rakudo todo 'unknown'
is $ok, 3, "a constant declared using 'constant' is actually constant (1)";
}
@@ -201,7 +200,6 @@ use Test;
$ok++ if $!;
$ok++ if wobble == 42;
- #?rakudo todo 'unknown'
is $ok, 3, "a constant declared using 'constant' is actually constant (3)";
}
@@ -9,7 +9,7 @@ if $*OS eq "browser" {
my $root = "mkdir-t-testfile-" ~ 1000000.rand.floor;
-say $root;
+diag $root;
nok $root.IO ~~ :e, "$root does not currently exist";
@@ -21,7 +21,6 @@ ok mkdir("$root/green"), "mkdir $root/green returns true";
ok "$root/green".IO ~~ :e, "$root/green now exists";
ok "$root/green".IO ~~ :d, "... and is a directory";
-#?rakudo todo 'rmdir return value'
nok rmdir($root), "Get false when we try to rmdir a directory with something in it";
ok $root.IO ~~ :e, "$root still exists";
View
@@ -43,7 +43,6 @@ if $no_subdir.IO ~~ :d {
else {
lives_ok { chdir("$no_subdir") },
'chdir to a non-existent does not by default throw an exception';
- #?rakudo todo 'nom regression'
ok !chdir("$no_subdir"),
'change to non-existent directory gives a false value';
}
View
@@ -57,7 +57,6 @@ is uniq('a', 'b', 'b', 'c', 'd', 'e', 'b', 'b', 'b', 'b', 'f', 'b'),
my $range = [1..4];
my @array = $range, $range.WHICH;
is @array.elems, 2, ".uniq does not use naive WHICH (1)";
- #?rakudo todo "awaiting better .uniq implementation"
is @array.uniq.elems, 2, ".uniq does not use naive WHICH (2)";
}

0 comments on commit 0de66e0

Please sign in to comment.