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;