6 use Test::More tests => 4;
13 This test demonstrates that Mouse will respect
14 a metaclass previously set with the metaclass
17 It also checks an error condition where that
18 metaclass must be a Mouse::Meta::Class subclass
29 use base 'Mouse::Meta::Class';
34 use metaclass 'Foo::Meta';
38 isa_ok(Foo->meta, 'Foo::Meta');
45 use base 'Class::MOP::Class';
50 use metaclass 'Bar::Meta';
52 ::ok($@, '... could not load moose without correct metaclass');
54 qr/^Bar already has a metaclass, but it does not inherit Mouse::Meta::Class/,
55 '... got the right error too');