10 my $attr = Class::MOP::Attribute->new('$test');
11 is( $attr->meta, Class::MOP::Attribute->meta,
12 '... instance and class both lead to the same meta' );
16 my $meta = Class::MOP::Attribute->meta();
17 isa_ok( $meta, 'Class::MOP::Class' );
23 initialize_instance_slot
24 _set_initial_slot_value
25 _make_initializer_writer_callback
30 has_write_method get_write_method get_write_method_ref
32 has_read_method get_read_method get_read_method_ref
33 has_predicate predicate
37 has_default default is_default_a_coderef
38 has_initializer initializer
39 has_insertion_order insertion_order _set_insertion_order
74 _inline_instance_clear
81 sort Class::MOP::Mixin::AttributeCore->meta->get_method_list,
82 $meta->get_method_list
85 '... our method list matches'
88 foreach my $method_name (@methods) {
89 ok( $meta->find_method_by_name($method_name),
90 '... Class::MOP::Attribute->find_method_by_name(' . $method_name . ')' );
103 'definition_context',
106 'associated_methods',
112 sort Class::MOP::Mixin::AttributeCore->meta->get_attribute_list,
113 $meta->get_attribute_list
115 [ sort @attributes ],
116 '... our attribute list matches'
119 foreach my $attribute_name (@attributes) {
120 ok( $meta->find_attribute_by_name($attribute_name),
121 '... Class::MOP::Attribute->find_attribute_by_name('
126 # We could add some tests here to make sure that
127 # the attribute have the appropriate
128 # accessor/reader/writer/predicate combinations,
129 # but that is getting a little excessive so I
130 # wont worry about it for now. Maybe if I get
131 # bored I will do it.