class-mop says 'The compute_all_applicable_attributes method has been deprecated.'

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

diff --git a/t/028-subclass-attr.t b/t/028-subclass-attr.t
index eaeb283..ca221d0 100644 (file)
--- a/t/028-subclass-attr.t
+++ b/t/028-subclass-attr.t
@@ -26,10 +26,10 @@ 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], [
+is_deeply([Child->meta->get_all_attributes], [
     Child->meta->get_attribute('child'),
     Class->meta->get_attribute('class'),
-], "correct compute_all_applicable_attributes");
+], "correct get_all_attributes");
 
 do {
     package Foo;
@@ -61,11 +61,11 @@ is(Foo->meta->get_attribute('attr')->_is_metadata, 'ro');
 is(Bar->meta->get_attribute('attr')->default, undef);
 is(Bar->meta->get_attribute('attr')->_is_metadata, 'rw');
 
-is_deeply([Foo->meta->compute_all_applicable_attributes], [
+is_deeply([Foo->meta->get_all_attributes], [
     Foo->meta->get_attribute('attr'),
-], "correct compute_all_applicable_attributes");
+], "correct get_all_attributes");
 
-is_deeply([Bar->meta->compute_all_applicable_attributes], [
+is_deeply([Bar->meta->get_all_attributes], [
     Bar->meta->get_attribute('attr'),
-], "correct compute_all_applicable_attributes");
+], "correct get_all_attributes");