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
74 sort Class::MOP::Mixin::AttributeCore->meta->get_method_list,
75 $meta->get_method_list
78 '... our method list matches'
81 foreach my $method_name (@methods) {
82 ok( $meta->find_method_by_name($method_name),
83 '... Class::MOP::Attribute->find_method_by_name(' . $method_name . ')' );
105 sort Class::MOP::Mixin::AttributeCore->meta->get_attribute_list,
106 $meta->get_attribute_list
108 [ sort @attributes ],
109 '... our attribute list matches'
112 foreach my $attribute_name (@attributes) {
113 ok( $meta->find_attribute_by_name($attribute_name),
114 '... Class::MOP::Attribute->find_attribute_by_name('
119 # We could add some tests here to make sure that
120 # the attribute have the appropriate
121 # accessor/reader/writer/predicate combinations,
122 # but that is getting a little excessive so I
123 # wont worry about it for now. Maybe if I get
124 # bored I will do it.