11 This test demonstrates that Moose will respect
12 a metaclass previously set with the metaclass
15 It also checks an error condition where that
16 metaclass must be a Moose::Meta::Class subclass
27 use base 'Moose::Meta::Class';
32 use metaclass 'Foo::Meta';
36 isa_ok(Foo->meta, 'Foo::Meta');
43 use base 'Class::MOP::Class';
48 use metaclass 'Bar::Meta';
50 ::ok($@, '... could not load moose without correct metaclass');
52 qr/^Bar already has a metaclass, but it does not inherit Moose::Meta::Class/,
53 '... got the right error too');