Commit | Line | Data |
---|---|---|
860f85ab | 1 | use strict; |
2 | use warnings; | |
86a4d873 | 3 | use Test::More; |
871e9eb5 | 4 | use Test::Fatal; |
860f85ab | 5 | |
6 | use Class::MOP; | |
7 | use lib 't/lib'; | |
8 | ||
871e9eb5 | 9 | is( exception { |
860f85ab | 10 | Class::MOP::load_class('TestClassLoaded::Sub'); |
871e9eb5 | 11 | }, undef ); |
860f85ab | 12 | |
13 | TestClassLoaded->can('a_method'); | |
14 | ||
871e9eb5 | 15 | is( exception { |
860f85ab | 16 | Class::MOP::load_class('TestClassLoaded'); |
871e9eb5 | 17 | }, undef ); |
860f85ab | 18 | |
871e9eb5 | 19 | is( exception { |
860f85ab | 20 | TestClassLoaded->a_method; |
871e9eb5 | 21 | }, undef ); |
86a4d873 | 22 | |
23 | done_testing; |