4 use Test::More tests => 72;
10 my $attr = Class::MOP::Attribute->new('$test');
11 is($attr->meta, Class::MOP::Attribute->meta, '... instance and class both lead to the same meta');
15 my $meta = Class::MOP::Attribute->meta();
16 isa_ok($meta, 'Class::MOP::Class');
22 initialize_instance_slot
23 _set_initial_slot_value
28 has_write_method get_write_method get_write_method_ref
30 has_read_method get_read_method get_read_method_ref
31 has_predicate predicate
35 has_default default is_default_a_coderef
36 has_initializer initializer
37 has_insertion_order insertion_order _set_insertion_order
38 has_trigger trigger call_trigger
67 [ sort $meta->get_method_list ],
69 '... our method list matches');
71 foreach my $method_name (@methods) {
72 ok($meta->has_method($method_name), '... Class::MOP::Attribute->has_method(' . $method_name . ')');
93 [ sort $meta->get_attribute_list ],
95 '... our attribute list matches');
97 foreach my $attribute_name (@attributes) {
98 ok($meta->has_attribute($attribute_name), '... Class::MOP::Attribute->has_attribute(' . $attribute_name . ')');
101 # We could add some tests here to make sure that
102 # the attribute have the appropriate
103 # accessor/reader/writer/predicate combinations,
104 # but that is getting a little excessive so I
105 # wont worry about it for now. Maybe if I get
106 # bored I will do it.