4 use Test::More tests => 12;
12 predicate => 'has_pawn',
18 my $meta = Class->meta;
19 isa_ok($meta, 'Mouse::Class');
21 is_deeply([$meta->superclasses], ['Mouse::Object'], "correctly inherting from Mouse::Object");
23 my $meta2 = Class->meta;
24 is($meta, $meta2, "same metaclass instance");
26 can_ok($meta, 'name', 'get_attribute_map');
28 my $attr = $meta->get_attribute('pawn');
29 isa_ok($attr, 'Mouse::Attribute');
30 is($attr->name, 'pawn', 'got the correct attribute');
32 my $map = $meta->get_attribute_map;
33 is_deeply($map, { pawn => $attr }, "attribute map");
41 my $meta3 = Class->meta;
42 is($meta, $meta3, "same metaclass instance, even if use Mouse is performed again");
44 is($meta->name, 'Class', "name for the metaclass");
52 my $child_meta = Child->meta;
53 isa_ok($child_meta, 'Mouse::Class');
55 isnt($meta, $child_meta, "different metaclass instances for the two classes");
57 is_deeply([$child_meta->superclasses], ['Class'], "correct superclasses");