6 use Test::More tests => 4;
16 use Mouse -traits => 'NoOpTrait';
29 is(Child->meta->name, 'Child', "correct metaclass name");
31 my $child = Child->new(attr => "ibute");
32 ok($child, "constructor works");
34 is($child->attr, "ibute", "getter inherited properly");
36 $child->attr("ition");
37 is($child->attr, "ition", "setter inherited properly");