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; |
2a674d23 |
15 | sub yay {} |
c3398f5b |
16 | }; |
17 | |
18 | ok(Mouse::load_class('Class'), "this should not die!"); |
19 | |
2a674d23 |
20 | throws_ok { |
21 | Mouse::load_class('FakeClassOhNo'); |
22 | } qr/Can't locate /; |
c3398f5b |
23 | |
24 | throws_ok { |
25 | Mouse::load_class('Anti::MouseError'); |
26 | } qr/Missing right curly/; |
27 | |