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