Skip to content

Commit

Permalink
[t/spec] more unfudges
Browse files Browse the repository at this point in the history
git-svn-id: http://svn.pugscode.org/pugs@28852 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information
moritz committed Oct 20, 2009
1 parent 48fe727 commit 9d3d0b4
Show file tree
Hide file tree
Showing 3 changed files with 0 additions and 7 deletions.
2 changes: 0 additions & 2 deletions S06-signature/slurpy-params.t
Original file line number Diff line number Diff line change
Expand Up @@ -103,7 +103,6 @@ Blechschmidt L<http://www.nntp.perl.org/group/perl.perl6.language/22883>
diag('Testing without positional arguments');
lives_ok { foo n => 20, y => 300, 4000 },
'Testing: `sub foo($n, *%h, *@a){ }; foo n => 20, y => 300, 4000`';
#?rakudo 3 todo 'positional params can be passed as named ones'
is (foo1 n => 20, y => 300, 4000), 20,
'Testing the value for positional';
is (foo2 n => 20, y => 300, 4000), 300,
Expand All @@ -117,7 +116,6 @@ Blechschmidt L<http://www.nntp.perl.org/group/perl.perl6.language/22883>
my sub foo ($n, *%h) { };
## NOTE: *NOT* sub foo ($n, *%h, *@a)
#?pugs todo 'bug'
#?rakudo todo ''
dies_ok { foo 1, n => 20, y => 300 },
'Testing: `sub foo($n, *%h) { }; foo 1, n => 20, y => 300`';
}
Expand Down
3 changes: 0 additions & 3 deletions S06-signature/sub-ref.t
Original file line number Diff line number Diff line change
Expand Up @@ -29,7 +29,6 @@ See L<S02/"Built-in Data Types"> for more information about Code, Routine, Sub,
isa_ok($foo, Routine);
isa_ok($foo, Sub);
is $foo.(), 42, "basic invocation of an anonymous sub";
#?rakudo todo 'signature error checking'
dies_ok { $foo.(23) }, "invocation of an parameterless anonymous sub with a parameter dies";
}

Expand All @@ -38,7 +37,6 @@ See L<S02/"Built-in Data Types"> for more information about Code, Routine, Sub,
isa_ok($foo, Code);
isa_ok($foo, Block);
is $foo.(), 42, "basic invocation of a pointy block";
#?rakudo todo 'signature error checking'
dies_ok { $foo.(23) }, "invocation of an parameterless pointy block with a parameter dies";
}

Expand All @@ -59,7 +57,6 @@ See L<S02/"Built-in Data Types"> for more information about Code, Routine, Sub,
$c( 2, 3, 4, 5 );

is $topic, 2, '$_ got right value for code ref';
#?rakudo todo 'RT #63974'
is @topic_array, ( 3, 4, 5 ), '@_ got right value in code ref';
}

Expand Down
2 changes: 0 additions & 2 deletions S06-signature/unspecified.t
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,6 @@ sub simple { 'simple' }
#?rakudo skip 'siglist'
is &simple.signature, :(), 'signature is :() when none is specified';
is simple(), 'simple', 'can call sub with no signature specified';
#?rakudo 2 todo 'should die from too many arguments'
dies_ok { simple( :golf<hotel> ) },
'sub with no signature dies when given a named argument';
dies_ok { simple( 'india' ) },
Expand All @@ -22,7 +21,6 @@ is &positional.signature, :(Object *@_),
'signature is :(Object *@_) when none is specified and @_ is used';
is positional( 'alpha' ), 'alpha', 'can call sub with positional param used';
ok positional() ~~ undef, 'sub using positional param called with no params';
#?rakudo todo 'should die from too many arguments'
dies_ok { positional( :victor<whiskey> ) },
'sub using positional param called with named param';

Expand Down

0 comments on commit 9d3d0b4

Please sign in to comment.