diff options
Diffstat (limited to 't/009-invalid-module-name.t')
-rw-r--r-- | t/009-invalid-module-name.t | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/t/009-invalid-module-name.t b/t/009-invalid-module-name.t new file mode 100644 index 0000000..6f9babc --- /dev/null +++ b/t/009-invalid-module-name.t @@ -0,0 +1,25 @@ +use strict; +use warnings; +use Test::Fatal; +use Test::More 0.88; +use lib 't/lib'; +use Test::Class::Load 'load_class'; + +my @bad = qw( + Foo:Bar + 123 + Foo::..::..::tmp::bad.pl + ::..::tmp::bad + ''tmp + 'tmp +); + +for my $name (@bad) { + like( + exception { load_class($name) }, + qr/^\Q`$name' is not a module name/, + "invalid module name - $name" + ); +} + +done_testing; |