13 sub check_meta_sanity {
15 isa_ok($meta, 'Class::MOP::Class');
16 is($meta->name, 'Foo');
17 ok($meta->has_method('foo'));
20 can_ok('Foo', 'meta');
23 check_meta_sanity($meta);
26 $meta = $meta->reinitialize($meta->name);
28 check_meta_sanity($meta);
31 $meta = $meta->reinitialize($meta);
33 check_meta_sanity($meta);
36 $meta->reinitialize('');
37 } qr/You must pass a package name or an existing Class::MOP::Package instance/;
40 $meta->reinitialize($meta->new_object);
41 } qr/You must pass a package name or an existing Class::MOP::Package instance/;