Use compute_all_applicable_attributes instead of get_attribute_map in the constructor...

[gitmo/Mouse.git] / t / 028-subclass-attr.t

diff --git a/t/028-subclass-attr.t b/t/028-subclass-attr.t
index 527e048..2ec4e6e 100644 (file)
--- a/t/028-subclass-attr.t
+++ b/t/028-subclass-attr.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 2;
+use Test::More tests => 3;
 
 do {
     package Class;
@@ -25,3 +25,9 @@ do {
 my $obj = Child->new(class => 1, child => 1);
 ok($obj->child, "local attribute set in constructor");
 ok($obj->class, "inherited attribute set in constructor");
+
+is_deeply([Child->meta->compute_all_applicable_attributes], [
+    Child->meta->get_attribute('child'),
+    Class->meta->get_attribute('class'),
+], "correct compute_all_applicable_attributes");
+