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