Pass 23-named-args.t.

t/nqp/23-named-args.t

@@ -0,0 +1,23 @@
+#! nqp
+
+# test named parameters and arguments
+
+plan(5);
+
+sub f1 ($x, :$y) { $x - $y; }
+say('ok ', f1(2, :y(1)), ' # named args passable');
+
+sub f2 ($x, :$y) { $x; }
+say('ok ', f2(2), ' # named args ignorable');
+
+sub f3 (:$x, :$y) { $x - $y; }
+say('ok ', f3(:y(2), :x(5)), ' # args reorderable');
+
+sub f4 ($w, $x, :$y, :$z) { $w + $x + $y + $z; }
+say('ok ', f4(:z(2), -3, :y(1), 4), ' # named/positional intermixable');
+
+my $y := 5;
+say('ok ', f1(10, :$y), ' - :$x colonpair syntax');
+
+
+# XXX: test mandatory named args are actually mandatory