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