X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=t%2F05-args.t;h=5a1a3dcaf23433cbdf14deb9b9da0509a7e20c6a;hp=d449b7326788daed0687d16c22ca31b6507d7042;hb=bdab145ebb1c29e7ec08d6aff4b25f9282fa4d2f;hpb=54e8c3ca36072542b2689f3bca52db73dfa5f903 diff --git a/t/05-args.t b/t/05-args.t index d449b73..5a1a3dc 100644 --- a/t/05-args.t +++ b/t/05-args.t @@ -7,7 +7,7 @@ use Test::More tests => 8; my $invalid = qr/Invalid\s+package\s+name/; -eval "use subs::auto qw/a b c/"; +eval "use subs::auto qw"; like($@, qr|Optional\s+arguments\s+must\s+be\s+passed\s+as\s+keys?\s*/\s*values?\s+pairs?|, 'no even number of args'); eval "use subs::auto in => \\( q{foo::bar} )";