Commit | Line | Data |
89f74416 |
1 | use strict; |
2 | use warnings; |
89f74416 |
3 | |
4 | use Test::More tests => 1; |
5 | use Class::MOP (); |
6 | |
7 | # Just defining this sub appears to shit in TestClassLoaded's symbol |
8 | # tables (see the SCALAR package symbol you end up with). |
9 | # This confuses the XS is_class_loaded method, which looks for _any_ |
10 | # symbol, not just code symbols of VERSION/AUTHORITY etc. |
11 | |
12 | sub fnar { |
b39d2247 |
13 | TestClassLoaded::this_method_does_not_even_exist(); |
89f74416 |
14 | } |
15 | |
16 | Class::MOP::load_class('TestClassLoaded'); |
17 | |
18 | TODO: { |
19 | local $TODO = 'Borked'; |
b39d2247 |
20 | ok( |
21 | TestClassLoaded->can('a_method'), |
22 | 'TestClassLoader::a_method is defined' |
23 | ); |
89f74416 |
24 | } |
25 | |