use strict;
use warnings;
use utf8;
use Test::More;
use t::Util;
is compile(<<'...'), '42 roads';
sub slurpy(*@a) {
@a.join(' ');
}
my int $i = 42;
my str $s = 'roads';
slurpy($i, $s);
...
# is compile(<<'...'), 'a,b,c';
# sub foo(@a) { @a.join(",") }
# my @b=< a b c >;
# foo(@b)
# ...
done_testing;