Skip to content
Browse files

[t/spec] A little unfudging of some now-passing tests.

git-svn-id: http://svn.pugscode.org/pugs@28720 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent 1c811ea commit 27c639d790672e9f0d8805e1e07da91096e63557 jnthn committed Oct 10, 2009
Showing with 2 additions and 4 deletions.
  1. +2 −4 S06-signature/introspection.t
View
6 S06-signature/introspection.t
@@ -58,22 +58,20 @@ plan *;
is ~&d.signature.params.[0].name, '$a', '... and .name still works';
}
-#?rakudo skip '.default'
{
sub e($x = 3; $y = { 2 + $x }) { };
my @l = &e.signature.params>>.default;
ok ?( all(@l) ~~ Code ), '.default returns closure';
- is @l[0].(), 3, 'first closure works';
+ is @l[0].(), 3, 'first closure works';
+ #?rakudo skip 'default closure when no call made fails lexical lookup with NPMCA'
is @l[1].().(), 5, 'closure as default value captured outer default value';
}
{
sub f(Int $x where { $_ % 2 == 0 }) { };
my $p = &f.signature.params[0];
- #?rakudo todo '.constraints'
ok 4 ~~ $p.constraints, '.constraints (+)';
ok 5 !~~ $p.constraints, '.constraints (-)';
- #?rakudo 2 todo '.constraints'
ok 5 ~~ (-> $x { }).signature.params[0].constraints,
'.constraints on unconstraint param should still smartmatch truely';
sub g(Any $x where Int) { };

0 comments on commit 27c639d

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