4 use Test::More tests => 3;
25 my $obj = Child->new(class => 1, child => 1);
26 ok($obj->child, "local attribute set in constructor");
27 ok($obj->class, "inherited attribute set in constructor");
29 is_deeply([Child->meta->compute_all_applicable_attributes], [
30 Child->meta->get_attribute('child'),
31 Class->meta->get_attribute('class'),
32 ], "correct compute_all_applicable_attributes");