use v6;

use Test;

plan 5;

sub MAIN($a, $b, *@c) {
    ok(1, 'MAIN called correctly');
    is($a, 'a', 'first positional param set correctly');
    is($b, 'b', 'second positional param set correctly');
    #?rakudo todo "bug in slurpy parameters"
    is(~@c, 'c d e', 'slurpy param set correctly');
}

@*ARGS = <a b c d e>;

ok( @*ARGS == 5, '@*ARGS has correct elements');



Add some tests for MAIN sub.
[t/spec]:  Add some tests for MAIN sub.


git-svn-id: 53605643c415f7495558be95614cf14171f1db78@24480 c213334d-75ef-0310-aa23-eaa082d1ae64
