4 use Test::More tests => 6;
12 use base 'Class::MOP::Class';
15 use base 'Class::MOP::Class';
18 use base 'Foo::Meta', 'Bar::Meta';
24 metaclass->import('Foo::Meta');
26 ok(!$@, '... Foo.meta => Foo::Meta is compatible') || diag $@;
31 metaclass->import('Bar::Meta');
33 ok(!$@, '... Bar.meta => Bar::Meta is compatible') || diag $@;
39 metaclass->import('Bar::Meta');
41 ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
47 metaclass->import('Foo::Meta');
49 ok($@, '... Bar::Bar.meta => Foo::Meta is not compatible') || diag $@;
55 metaclass->import('FooBar::Meta');
57 ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
63 metaclass->import('FooBar::Meta');
65 ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;