X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_self_introspection.t;h=11d96a109973f351de3205071b9f462fca95412e;hb=729fd9ba69ec6f9150504b4c24c46365fba7cdf4;hp=7e63a8e0287863ccbba11eaf6eaedfbaa6a7b837;hpb=caab0eaaa67d626df9e0113822d95fcfa0968022;p=gitmo%2FClass-MOP.git diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t index 7e63a8e..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 => 208; +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 @@ -54,12 +57,14 @@ my @class_mop_class_methods = qw( create_anon_class is_anon_class - instance_metaclass get_meta_instance + instance_metaclass get_meta_instance create_meta_instance new_object clone_object construct_instance construct_class_instance clone_instance rebless_instance check_metaclass_compatability + add_meta_instance_dependencies remove_meta_instance_depdendencies update_meta_instance_dependencies + add_dependent_meta_instance remove_dependent_meta_instance invalidate_meta_instances invalidate_meta_instance attribute_metaclass method_metaclass @@ -67,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