Various is_class_loaded/load_class nits

[gitmo/Mouse.git] / t / 020-load-class.t

diff --git a/t/020-load-class.t b/t/020-load-class.t
index 0373459..479bc08 100644 (file)
--- a/t/020-load-class.t
+++ b/t/020-load-class.t
@@ -1,12 +1,19 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 11;
 use Test::Exception;
 
 require Mouse;
 use lib 't/lib';
 
+for my $method ('load_class', 'is_class_loaded') {
+    my $code = Mouse->can($method);
+    ok(!$code->(), "$method with no argument returns false");
+    ok(!$code->(''), "can't load the empty class");
+    ok(!$code->(\"foo"), "can't load a class name reference??");
+}
+
 ok(Mouse::load_class('Anti::Mouse'));
 can_ok('Anti::Mouse' => 'antimouse');