X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F073_make_mutable.t;h=521249100e6b572650874d02e21a61ee0c01b11f;hb=a1bdc44315126086b66cee4524e40c771fa090f8;hp=ae6210f46fb5c484e4107a97fe08b1addd9a1c45;hpb=1d63737e083d7c1f6a3f44e4021998ddc4bda1a2;p=gitmo%2FClass-MOP.git diff --git a/t/073_make_mutable.t b/t/073_make_mutable.t index ae6210f..5212491 100644 --- a/t/073_make_mutable.t +++ b/t/073_make_mutable.t @@ -89,7 +89,7 @@ use Class::MOP; is_deeply([@supers], [$meta->superclasses], '... reset the superclasses okay'); ok( $meta->$_ , "... ${_} works") - for qw(get_meta_instance compute_all_applicable_attributes + for qw(get_meta_instance get_all_attributes class_precedence_list get_method_map ); lives_ok {$meta->make_immutable; } '... changed Baz to be immutable again'; @@ -118,7 +118,7 @@ use Class::MOP; dies_ok { $meta->superclasses('Foo') } '... set the superclasses'; ok( $meta->$_ , "... ${_} works") - for qw(get_meta_instance compute_all_applicable_attributes + for qw(get_meta_instance get_all_attributes class_precedence_list get_method_map ); } @@ -180,7 +180,7 @@ use Class::MOP; is_deeply([@supers], [$meta->superclasses], '... reset the superclasses okay'); ok( $meta->$_ , "... ${_} works") - for qw(get_meta_instance compute_all_applicable_attributes + for qw(get_meta_instance get_all_attributes class_precedence_list get_method_map ); }; @@ -213,7 +213,7 @@ use Class::MOP; dies_ok { $meta->superclasses('Foo') } '... set the superclasses'; ok( $meta->$_ , "... ${_} works") - for qw(get_meta_instance compute_all_applicable_attributes + for qw(get_meta_instance get_all_attributes class_precedence_list get_method_map ); }