6 use Test::More tests => 5;
15 This test demonstrates that Moose will respect
16 a metaclass previously set with the metaclass
19 It also checks an error condition where that
20 metaclass must be a Moose::Meta::Class subclass
31 use base 'Moose::Meta::Class';
36 use metaclass 'Foo::Meta';
40 isa_ok(Foo->meta, 'Foo::Meta');
47 use base 'Class::MOP::Class';
52 use metaclass 'Bar::Meta';
54 ::ok($@, '... could not load moose without correct metaclass');
56 qr/^You already have a \&meta function\, but it does not return a Moose\:\:Meta\:\:Class/,
57 '... got the right error too');