7 use File::Spec::Functions;
9 use Test::More tests => 8;
13 use lib catdir($FindBin::Bin, 'lib');
21 use metaclass 'MyMetaClass' => (
22 'attribute_metaclass' => 'MyMetaClass::Attribute',
23 'instance_metaclass' => 'MyMetaClass::Instance',
24 'method_metaclass' => 'MyMetaClass::Method',
25 'random_metaclass' => 'MyMetaClass::Random',
31 isa_ok($meta, 'MyMetaClass', '... Correct metaclass');
32 ok(Class::MOP::is_class_loaded('MyMetaClass'), '... metaclass loaded');
34 is($meta->attribute_metaclass, 'MyMetaClass::Attribute', '... Correct attribute metaclass');
35 ok(Class::MOP::is_class_loaded('MyMetaClass::Attribute'), '... attribute metaclass loaded');
37 is($meta->instance_metaclass, 'MyMetaClass::Instance', '... Correct instance metaclass');
38 ok(Class::MOP::is_class_loaded('MyMetaClass::Instance'), '... instance metaclass loaded');
40 is($meta->method_metaclass, 'MyMetaClass::Method', '... Correct method metaclass');
41 ok(Class::MOP::is_class_loaded('MyMetaClass::Method'), '... method metaclass loaded');