Commit | Line | Data |
c3398f5b |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings; |
4 | use Test::More tests => 5; |
5 | use Test::Exception; |
6 | |
7 | require Mouse; |
8 | use lib 't/lib'; |
9 | |
10 | ok(Mouse::load_class('Anti::Mouse')); |
11 | can_ok('Anti::Mouse' => 'antimouse'); |
12 | |
13 | do { |
14 | package Class; |
15 | }; |
16 | |
17 | ok(Mouse::load_class('Class'), "this should not die!"); |
18 | |
19 | TODO: { |
20 | local $TODO = "can't have the previous test and this test pass.. yet"; |
21 | throws_ok { |
22 | Mouse::load_class('FakeClassOhNo'); |
23 | } qr/Can't locate /; |
24 | }; |
25 | |
26 | throws_ok { |
27 | Mouse::load_class('Anti::MouseError'); |
28 | } qr/Missing right curly/; |
29 | |