6 use Test::More tests => 4;
13 This test demonstrates that Moose will respect
14 a metaclass previously set with the metaclass
17 It also checks an error condition where that
18 metaclass must be a Moose::Meta::Class subclass
29 use base 'Moose::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 \&meta function\, but it does not return a Moose\:\:Meta\:\:Class/,
55 '... got the right error too');