t/05-args.t

   1 #!perl -T
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 8;
   7
   8 my $invalid = qr/Invalid\s+package\s+name/;
   9
  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');
  12
  13 eval "use subs::auto in => \\( q{foo::bar} )";
  14 like($@, $invalid, 'no ref as package name');
  15
  16 eval "use subs::auto in => qq{foo\\nbar}";
  17 like($@, $invalid, 'no newline in package name');
  18
  19 eval "use subs::auto in => q{foo-bar}";
  20 like($@, $invalid, 'no dash in package name');
  21
  22 eval "use subs::auto in => q{foo:bar}";
  23 like($@, $invalid, 'no single colon in package name');
  24
  25 eval "use subs::auto in => q{foo:::bar}";
  26 like($@, $invalid, 'no three colons in package name');
  27
  28 eval "use subs::auto in => q{1foo::bar}";
  29 like($@, $invalid, 'no package name starting by a digit');
  30
  31 eval "use subs::auto in => q{foo::2bar}";
  32 like($@, $invalid, 'no package name with a digit inside');