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
29 has_write_method get_write_method get_write_method_ref
31 has_read_method get_read_method get_read_method_ref
32 has_predicate predicate
36 has_default default is_default_a_coderef
37 has_initializer initializer
38 has_insertion_order insertion_order _set_insertion_order
72 _inline_instance_clear
79 sort Class::MOP::Mixin::AttributeCore->meta->get_method_list,
80 $meta->get_method_list
83 '... our method list matches'
86 foreach my $method_name (@methods) {
87 ok( $meta->find_method_by_name($method_name),
88 '... Class::MOP::Attribute->find_method_by_name(' . $method_name . ')' );
101 'definition_context',
104 'associated_methods',
110 sort Class::MOP::Mixin::AttributeCore->meta->get_attribute_list,
111 $meta->get_attribute_list
113 [ sort @attributes ],
114 '... our attribute list matches'
117 foreach my $attribute_name (@attributes) {
118 ok( $meta->find_attribute_by_name($attribute_name),
119 '... Class::MOP::Attribute->find_attribute_by_name('
124 # We could add some tests here to make sure that
125 # the attribute have the appropriate
126 # accessor/reader/writer/predicate combinations,
127 # but that is getting a little excessive so I
128 # wont worry about it for now. Maybe if I get
129 # bored I will do it.