[t/spec] add basic tests for slurpy parameters

git-svn-id: http://svn.pugscode.org/pugs@22019 c213334d-75ef-0310-aa23-eaa082d1ae64

S06-signature/slurpy-params.t

@@ -0,0 +1,20 @@
+use v6;
+use Test;
+
+plan 6;
+
+sub xelems(*@args) { @args.elems }
+sub xjoin(*@args)  { @args.join('|') }
+
+is xelems(1),          1,        'Basic slurpy params 1';
+is xelems(1, 2, 5),    3,        'Basic slurpy params 2';
+
+is xjoin(1),           '1',      'Basic slurpy params 3';
+is xjoin(1, 2, 5),     '1|2|5',  'Basic slurpy params 4';
+
+sub mixed($pos1, *@slurp) { "|$pos1|" ~ @slurp.join('!') }
+
+is mixed(1),           '|1|',    'Positional and slurp params';
+is mixed(1, 2, 3),     '|1|2!3', 'Positional and slurp params';
+
+# vim: ft=perl6