Skip to content
Browse files

[t/spec] more unfudges

git-svn-id: http://svn.pugscode.org/pugs@28851 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent f8a87e4 commit 48fe727a1d03669a2db2600724f4345cb22d6f1f moritz committed
View
2 S04-declarations/implicit-parameter.t
@@ -36,11 +36,11 @@ plan 18;
{
#?pugs 4 todo 'pointy blocks'
- #?rakudo 4 todo 'pointy blocks and $_'
$_ = 'Ack';
dies_ok({ (-> { "Boo!" }).(42) }, '-> {} is arity 0');
dies_ok({ (-> { $_ }).(42) }, 'Even when we use $_>');
+ #?rakudo 2 todo 'pointy blocks and $_'
is((-> { $_ }).(), 'Ack!', '$_ is lexical here');
is(-> $a { $_ }.(42), 'Ack!', 'Even with parameters (?)');
is(-> $_ { $_ }.(42), 42, 'But not when the parameter is $_');
View
2 S06-signature/arity.t
@@ -32,7 +32,6 @@ is &o_one.arity, 1, 'arity 1 sub with optional params';
is &o_two.arity, 2, 'arity with optional and required named params';
is &o_zero.count, 2, 'count on sub with optional params';
-#?rakudo 2 todo 'bug'
is &o_one.count, 2, 'count on sub with optional params';
is &o_two.count, 3, 'count on sub with optional and required named params';
@@ -125,7 +124,6 @@ is &o_two.count, 3, 'count on sub with optional and required named params';
'... also when passed to a sub first';
}
-#?rakudo todo 'RT #66868: Zero-arg sub interpreted as parameterless'
dies_ok { a_zero( 'hello', 'world' ) }, 'no matching sub signature';
# vim: ft=perl6
View
2 S06-signature/errors.t
@@ -29,7 +29,7 @@ eval_dies_ok '
eval_dies_ok 'sub quuux ($?VERSION) { ... }',
'parser rejects magicals as args (1)';
-#?rakudo todo 'STD.pm actually parses this - is this test valid?'
+#?rakudo skip 'STD.pm actually parses this - is this test valid?'
eval_dies_ok('sub quuuux ($!) { ... }',
'parser rejects magicals as args (2)');
View
2 S06-signature/named-parameters.t
@@ -47,7 +47,6 @@ sub foo (:$x = 3) { $x }
is(foo(), 3, "not specifying named params that aren't mandatory works");
# part of RT 53814
-#?rakudo todo 'using named as positional should fail'
#?pugs todo 'bug'
dies_ok({foo(4)}, "using a named as a positional fails");
@@ -58,7 +57,6 @@ sub foo2 (:$x = 3, :$y = 5) { $x + $y }
is(foo2(), 8, "not specifying named params that aren't mandatory works (foo2)");
#?pugs 2 todo 'bug'
-#?rakudo 2 todo 'using named as positional should fail'
dies_ok({foo2(4)}, "using a named as a positional fails (foo2)");
dies_ok({foo2(4, 10)}, "using a named as a positional fails (foo2)");
is(foo2( x => 5), 10, "naming named param x also works (foo2)");
View
1 S06-signature/optional.t
@@ -41,7 +41,6 @@ is opt_typed() , 'undef', 'can leave out optional typed param';
eval_dies_ok 'sub wrong ($a?, $b) {...}', 'options params before required ones are forbidden';
sub foo_53814($w, $x?, :$y = 2){ $w~"|"~$x~"|"~$y };
-#?rakudo todo 'RT 53814'
dies_ok {foo_53814(1,undef,'something_extra',:y(3))},
'die on too many parameters (was once bug RT 53814)';
View
1 S06-signature/passing-arrays.t
@@ -61,7 +61,6 @@ plan 11;
sub ro_b(@a) { ro_a(@a) };
my @x = 1, 2, 4;
lives_ok { ro_b(@x) }, 'can pass parameter Array on to next function';
- #?rakudo todo 'RT 67876'
lives_ok { @x = 5, 6 }, '... and that did not make the caller Array ro';
}

0 comments on commit 48fe727

Please sign in to comment.
Something went wrong with that request. Please try again.