X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F001_mouse%2F020-load-class.t;h=b8f7c998bc9927ce7259c5315cfc82aaed920f8e;hp=705c0db9ab33154301003fc176a90032a3cf77a7;hb=0ffc4183de68b15deeec5d662d9cc1d125dabf26;hpb=920139b3efca66d2caeeef306c97fa0da62c6b73

diff --git a/t/001_mouse/020-load-class.t b/t/001_mouse/020-load-class.t
index 705c0db..b8f7c99 100644
--- a/t/001_mouse/020-load-class.t
+++ b/t/001_mouse/020-load-class.t
@@ -1,20 +1,28 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 11;
+use Test::More;
 use Test::Exception;
 
 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??");
+lives_and {
+    ok(!Mouse::is_class_loaded(undef),  "is_class_loaded with undef 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\)/;
+    ok(Mouse::is_class_loaded("Mouse"),      "Mouse is loaded");
+    ok(Mouse::is_class_loaded("Test::More"), "Test::More is loaded");
+};
+
+throws_ok { Mouse::load_class(undef)  } 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+\)\)/;
 
+throws_ok { Mouse::load_class("Foo!") }        qr/Invalid class name/;
+throws_ok { Mouse::load_class("Foo::Bar42!") } qr/Invalid class name/;
+
 ok(Mouse::load_class('Unsweetened'));
 can_ok('Unsweetened' => 'unsweetened');
 
@@ -33,3 +41,4 @@ throws_ok {
     Mouse::load_class('SyntaxError');
 } qr/Missing right curly/;
 
+done_testing;