[t/spec] tests for optional parameters, typed and untyped (RT #61528)

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

S06-signature/optional.t

@@ -0,0 +1,17 @@
+use v6;
+use Test;
+
+plan 4;
+
+sub opt1($p?) { defined($p) ?? $p !! 'undef'; }
+
+is opt1('abc'), 'abc',      'Can pass optional param';
+is opt1(),      'undef',    'Can leave out optional param';
+
+sub opt_typed(Int $p?) { defined($p) ?? $p !! 'undef' };
+
+is opt_typed(2), 2,        'can pass optional typed param';
+#?rakudo skip 'optional typed params, RT #61528'
+is opt_typed() , 'undef',  'can leave out optional typed param';
+
+# vim: ft=perl6