X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fforeign%2FMethod-Signatures%2Ftoo_many_args.t;h=7e2997b89256a35489d1ada18913264e3ba476be;hb=1a52f2db46f6d870454428a07bfae09e0359eeee;hp=7f5ebd3d3d56a3de3d6b817f7beda5b9d0c9ab29;hpb=98e6239b969281c227be6ede859054786dd7b933;p=p5sagit%2FFunction-Parameters.git diff --git a/t/foreign/Method-Signatures/too_many_args.t b/t/foreign/Method-Signatures/too_many_args.t index 7f5ebd3..7e2997b 100644 --- a/t/foreign/Method-Signatures/too_many_args.t +++ b/t/foreign/Method-Signatures/too_many_args.t @@ -16,7 +16,8 @@ fun one_named(:$foo) { return $foo; } fun one_named_one_positional($bar, :$foo) { return($foo, $bar) } note "too many arguments"; { - is_deeply [no_sig(42)], [42]; + is_deeply [no_sig(42)], [42]; + ok !eval { no_args(42); 1 }, "no args"; like $@, qr{Too many arguments}; @@ -36,8 +37,10 @@ note "with positionals"; { is one_named(foo => 23, foo => 42), 42; + is_deeply [one_named_one_positional(23, foo => 42)], [42, 23]; is_deeply [one_named_one_positional(23, foo => 42, foo => 23)], [23, 23]; + }