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
73 _inline_instance_clear
80 sort Class::MOP::Mixin::AttributeCore->meta->get_method_list,
81 $meta->get_method_list
84 '... our method list matches'
87 foreach my $method_name (@methods) {
88 ok( $meta->find_method_by_name($method_name),
89 '... Class::MOP::Attribute->find_method_by_name(' . $method_name . ')' );
102 'definition_context',
105 'associated_methods',
111 sort Class::MOP::Mixin::AttributeCore->meta->get_attribute_list,
112 $meta->get_attribute_list
114 [ sort @attributes ],
115 '... our attribute list matches'
118 foreach my $attribute_name (@attributes) {
119 ok( $meta->find_attribute_by_name($attribute_name),
120 '... Class::MOP::Attribute->find_attribute_by_name('
125 # We could add some tests here to make sure that
126 # the attribute have the appropriate
127 # accessor/reader/writer/predicate combinations,
128 # but that is getting a little excessive so I
129 # wont worry about it for now. Maybe if I get
130 # bored I will do it.