use strict;
use warnings;

use Test::More tests => 3;

{
    package Bla;
    use Test::More;
    use Dios;

    method new ($class:) {
        bless {}, $class;
    }

    method array_param_at_end ($a, $b, *@c) {
        return "$a|$b|@c";
    }

    SKIP:{
        skip q{Can't eval keywords (yet)} => 2;

        eval q{ method two_array_params ($a, *@b, *@c) {} };
        like($@, qr{Can't specify more than one slurpy parameter}i, "Two array params");

        eval q{ method two_slurpy_params ($a, %b, $c, *@d, *%e) {} };
        like($@, qr{signature can only have one slurpy parameter}i, "Two slurpy params");
    }
}

is(Bla->new->array_param_at_end(1, 2, 3, 4), "1|2|3 4", "Array parameter at end");