7 use File::Spec::Functions;
9 use Test::More tests => 9;
15 use lib catdir($FindBin::Bin, 'lib');
23 use metaclass 'MyMetaClass' => (
24 'attribute_metaclass' => 'MyMetaClass::Attribute',
25 'instance_metaclass' => 'MyMetaClass::Instance',
26 'method_metaclass' => 'MyMetaClass::Method',
27 'random_metaclass' => 'MyMetaClass::Random',
33 isa_ok($meta, 'MyMetaClass', '... Correct metaclass');
34 ok(Class::MOP::is_class_loaded('MyMetaClass'), '... metaclass loaded');
36 is($meta->attribute_metaclass, 'MyMetaClass::Attribute', '... Correct attribute metaclass');
37 ok(Class::MOP::is_class_loaded('MyMetaClass::Attribute'), '... attribute metaclass loaded');
39 is($meta->instance_metaclass, 'MyMetaClass::Instance', '... Correct instance metaclass');
40 ok(Class::MOP::is_class_loaded('MyMetaClass::Instance'), '... instance metaclass loaded');
42 is($meta->method_metaclass, 'MyMetaClass::Method', '... Correct method metaclass');
43 ok(Class::MOP::is_class_loaded('MyMetaClass::Method'), '... method metaclass loaded');