X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=t%2F05-args.t;h=d449b7326788daed0687d16c22ca31b6507d7042;hp=fa0e1912dcc3fd76a9f27df1b2d5e12c2e48ea56;hb=2eb9d5be03064d80f409fe0e56b2bbf8905e61fb;hpb=a8e5fe66564dd0cbb6a4e6c06af39b79c4e56878

diff --git a/t/05-args.t b/t/05-args.t
index fa0e191..d449b73 100644
--- a/t/05-args.t
+++ b/t/05-args.t
@@ -3,10 +3,13 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 my $invalid = qr/Invalid\s+package\s+name/;
 
+eval "use subs::auto qw/a b c/";
+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} )";
 like($@, $invalid, 'no ref as package name');