6 use Test::More tests => 8;
8 my $invalid = qr/Invalid\s+package\s+name/;
10 eval "use subs::auto qw/a b c/";
11 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');
13 eval "use subs::auto in => \\( q{foo::bar} )";
14 like($@, $invalid, 'no ref as package name');
16 eval "use subs::auto in => qq{foo\\nbar}";
17 like($@, $invalid, 'no newline in package name');
19 eval "use subs::auto in => q{foo-bar}";
20 like($@, $invalid, 'no dash in package name');
22 eval "use subs::auto in => q{foo:bar}";
23 like($@, $invalid, 'no single colon in package name');
25 eval "use subs::auto in => q{foo:::bar}";
26 like($@, $invalid, 'no three colons in package name');
28 eval "use subs::auto in => q{1foo::bar}";
29 like($@, $invalid, 'no package name starting by a digit');
31 eval "use subs::auto in => q{foo::2bar}";
32 like($@, $invalid, 'no package name with a digit inside');