use strict;
use warnings;
-use Test::More tests => 6;
+use Test::More;
-BEGIN {use metaclass;
-}
+use metaclass;
# meta classes
{
package Foo::Meta;
use base 'Class::MOP::Class';
-
+
package Bar::Meta;
use base 'Class::MOP::Class';
-
+
package FooBar::Meta;
use base 'Foo::Meta', 'Bar::Meta';
}
eval {
package Foo::Foo;
metaclass->import('Bar::Meta');
- Foo::Foo->meta->superclasses('Foo');
+ Foo::Foo->meta->superclasses('Foo');
};
ok($@, '... Foo::Foo.meta => Bar::Meta is not compatible') || diag $@;
eval {
package FooBar;
metaclass->import('FooBar::Meta');
- FooBar->meta->superclasses('Foo');
+ FooBar->meta->superclasses('Foo');
};
ok(!$@, '... FooBar.meta => FooBar::Meta is compatible') || diag $@;
eval {
package FooBar2;
metaclass->import('FooBar::Meta');
- FooBar2->meta->superclasses('Bar');
+ FooBar2->meta->superclasses('Bar');
};
ok(!$@, '... FooBar2.meta => FooBar::Meta is compatible') || diag $@;
-
+done_testing;