12 This test demonstrates that Moose will respect
13 a metaclass previously set with the metaclass
16 It also checks an error condition where that
17 metaclass must be a Moose::Meta::Class subclass
28 use base 'Moose::Meta::Class';
33 use metaclass 'Foo::Meta';
37 isa_ok(Foo->meta, 'Foo::Meta');
44 use base 'Class::MOP::Class';
49 use metaclass 'Bar::Meta';
51 ::ok($@, '... could not load moose without correct metaclass');
53 qr/^Bar already has a metaclass, but it does not inherit Moose::Meta::Class/,
54 '... got the right error too');