6 use Test::More tests => 6;
14 use base 'Class::MOP::Class';
17 use base 'Class::MOP::Class';
20 use base 'Foo::Meta', 'Bar::Meta';
26 metaclass->import('Foo::Meta');
28 ok(!$@, '... Foo.meta => Foo::Meta is compatible') || diag $@;
33 metaclass->import('Bar::Meta');
35 ok(!$@, '... Bar.meta => Bar::Meta is compatible') || diag $@;
40 metaclass->import('Bar::Meta');
41 Foo::Foo->meta->superclasses('Foo');
43 ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
48 metaclass->import('Foo::Meta');
49 Bar::Bar->meta->superclasses('Bar');
51 ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
56 metaclass->import('FooBar::Meta');
57 FooBar->meta->superclasses('Foo');
59 ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
64 metaclass->import('FooBar::Meta');
65 FooBar2->meta->superclasses('Bar');
67 ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;