X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020-load-class.t;h=8e8dc45e645b49e98c694a8fefb5af3af876fd3d;hb=f1db776d2defca7822f4f88fa9cbca8f89890198;hp=dd275870ec8927f485b6bf62e8cb70bb93cd01c0;hpb=c3398f5bd45f2851b7cd40ca9823bcf7d2378469;p=gitmo%2FMouse.git

diff --git a/t/020-load-class.t b/t/020-load-class.t
index dd27587..8e8dc45 100644
--- a/t/020-load-class.t
+++ b/t/020-load-class.t
@@ -1,27 +1,33 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
-use Test::Exception;
+use Test::More tests => 11;
+use Mouse::Util ':test';
 
 require Mouse;
 use lib 't/lib';
 
+ok(!Mouse::is_class_loaded(), "is_class_loaded with no argument returns false");
+ok(!Mouse::is_class_loaded(''), "can't load the empty class");
+ok(!Mouse::is_class_loaded(\"foo"), "can't load a class name reference??");
+
+throws_ok { Mouse::load_class()       } qr/Invalid class name \(undef\)/;
+throws_ok { Mouse::load_class('')     } qr/Invalid class name \(\)/;
+throws_ok { Mouse::load_class(\"foo") } qr/Invalid class name \(SCALAR\(\w+\)\)/;
+
 ok(Mouse::load_class('Anti::Mouse'));
 can_ok('Anti::Mouse' => 'antimouse');
 
 do {
     package Class;
+    sub yay {}
 };
 
 ok(Mouse::load_class('Class'), "this should not die!");
 
-TODO: {
-    local $TODO = "can't have the previous test and this test pass.. yet";
-    throws_ok {
-        Mouse::load_class('FakeClassOhNo');
-    } qr/Can't locate /;
-};
+throws_ok {
+    Mouse::load_class('FakeClassOhNo');
+} qr/Can't locate /;
 
 throws_ok {
     Mouse::load_class('Anti::MouseError');