Commit | Line | Data |
---|---|---|
38bf2a25 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use FindBin; | |
5 | use File::Spec::Functions; | |
6 | ||
7 | use Test::More; | |
8 | use Test::Fatal; | |
9 | ||
10 | use Class::MOP; | |
11 | ||
12 | use lib catdir($FindBin::Bin, 'lib'); | |
13 | ||
14 | is( exception { | |
15 | Class::MOP::load_class('TestClassLoaded::Sub'); | |
16 | }, undef ); | |
17 | ||
18 | TestClassLoaded->can('a_method'); | |
19 | ||
20 | is( exception { | |
21 | Class::MOP::load_class('TestClassLoaded'); | |
22 | }, undef ); | |
23 | ||
24 | is( exception { | |
25 | TestClassLoaded->a_method; | |
26 | }, undef ); | |
27 | ||
28 | done_testing; |