6 use Test::More tests => 11;
13 use base 'Class::MOP::Class';
16 use metaclass 'FooMeta';
19 can_ok('Foo', 'meta');
20 isa_ok(Foo->meta, 'FooMeta');
21 isa_ok(Foo->meta, 'Class::MOP::Class');
25 use base 'Class::MOP::Class';
27 package BarMeta::Attribute;
28 use base 'Class::MOP::Attribute';
30 package BarMeta::Method;
31 use base 'Class::MOP::Method';
34 use metaclass 'BarMeta' => (
35 'attribute_metaclass' => 'BarMeta::Attribute',
36 'method_metaclass' => 'BarMeta::Method',
40 can_ok('Bar', 'meta');
41 isa_ok(Bar->meta, 'BarMeta');
42 isa_ok(Bar->meta, 'Class::MOP::Class');
44 is(Bar->meta->attribute_metaclass, 'BarMeta::Attribute', '... got the right attribute metaobject');
45 is(Bar->meta->method_metaclass, 'BarMeta::Method', '... got the right method metaobject');
52 can_ok('Baz', 'meta');
53 isa_ok(Baz->meta, 'Class::MOP::Class');
57 metaclass->import('Foo');
59 ok($@, '... metaclasses must be subclass of Class::MOP::Class');