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