X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F014_attribute_introspection.t;fp=t%2F014_attribute_introspection.t;h=16cf78fa14794b580c825cded93dec7bdcf4eb1d;hb=89871ad6548566c183b41a36cc4e62e9b72fb5a0;hp=1ead8530be184aa5948efcb08cf2871b0c298598;hpb=097a413579aa8e7f36a455ee18aef84f58c2a07f;p=gitmo%2FClass-MOP.git diff --git a/t/014_attribute_introspection.t b/t/014_attribute_introspection.t index 1ead853..16cf78f 100644 --- a/t/014_attribute_introspection.t +++ b/t/014_attribute_introspection.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 60; +use Test::More tests => 62; use Test::Exception; BEGIN { @@ -20,21 +20,24 @@ BEGIN { isa_ok($meta, 'Class::MOP::Class'); my @methods = qw( - new clone + new + clone initialize_instance_slot _set_initial_slot_value name - has_accessor accessor - has_writer writer get_write_method get_write_method_ref - has_reader reader get_read_method get_read_method_ref - has_predicate predicate - has_clearer clearer - has_builder builder - has_init_arg init_arg - has_default default is_default_a_coderef - has_initializer initializer + has_accessor accessor + has_writer writer + has_write_method get_write_method get_write_method_ref + has_reader reader + has_read_method get_read_method get_read_method_ref + has_predicate predicate + has_clearer clearer + has_builder builder + has_init_arg init_arg + has_default default is_default_a_coderef + has_initializer initializer slots get_value @@ -44,7 +47,8 @@ BEGIN { clear_value associated_class - attach_to_class detach_from_class + attach_to_class + detach_from_class accessor_metaclass