X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_self_introspection.t;h=11d96a109973f351de3205071b9f462fca95412e;hb=cb75020f6a75898378d873583561654f3519ea92;hp=77d7656173eecc0858dbd7553332db5d35fe0517;hpb=da5680be0c948ef5305adf43fc95b5a3380a493d;p=gitmo%2FClass-MOP.git diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t index 77d7656..11d96a1 100644 --- a/t/010_self_introspection.t +++ b/t/010_self_introspection.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 220; +use Test::More tests => 230; use Test::Exception; BEGIN { @@ -28,6 +28,7 @@ my $class_mop_module_meta = Class::MOP::Module->meta(); isa_ok($class_mop_module_meta, 'Class::MOP::Module'); my @class_mop_package_methods = qw( + _new initialize @@ -41,11 +42,13 @@ my @class_mop_package_methods = qw( ); my @class_mop_module_methods = qw( + _new version authority identifier ); my @class_mop_class_methods = qw( + _new initialize reinitialize create @@ -69,13 +72,13 @@ my @class_mop_class_methods = qw( superclasses subclasses class_precedence_list linearized_isa has_method get_method add_method remove_method alias_method - get_method_list get_method_map compute_all_applicable_methods + get_method_list get_method_map get_all_methods compute_all_applicable_methods find_method_by_name find_all_methods_by_name find_next_method_by_name add_before_method_modifier add_after_method_modifier add_around_method_modifier has_attribute get_attribute add_attribute remove_attribute - get_attribute_list get_attribute_map compute_all_applicable_attributes find_attribute_by_name + get_attribute_list get_attribute_map get_all_attributes compute_all_applicable_attributes find_attribute_by_name is_mutable is_immutable make_mutable make_immutable create_immutable_transformer get_immutable_options get_immutable_transformer