6 use Test::More tests => 53;
14 my $attr = Class::MOP::Attribute->new('$test');
15 is($attr->meta, Class::MOP::Attribute->meta, '... instance and class both lead to the same meta');
19 my $meta = Class::MOP::Attribute->meta();
20 isa_ok($meta, 'Class::MOP::Class');
26 initialize_instance_slot
32 has_predicate predicate
35 has_default default is_default_a_coderef
42 attach_to_class detach_from_class
44 generate_accessor_method
45 generate_reader_method
46 generate_writer_method
47 generate_predicate_method
48 generate_clearer_method
50 generate_accessor_method_inline
51 generate_reader_method_inline
52 generate_writer_method_inline
53 generate_predicate_method_inline
54 generate_clearer_method_inline
62 [ sort $meta->get_method_list ],
64 '... our method list matches');
66 foreach my $method_name (@methods) {
67 ok($meta->has_method($method_name), '... Class::MOP::Attribute->has_method(' . $method_name . ')');
71 name accessor reader writer predicate clearer
72 init_arg default associated_class
76 [ sort $meta->get_attribute_list ],
78 '... our attribute list matches');
80 foreach my $attribute_name (@attributes) {
81 ok($meta->has_attribute($attribute_name), '... Class::MOP::Attribute->has_attribute(' . $attribute_name . ')');
84 # We could add some tests here to make sure that
85 # the attribute have the appropriate
86 # accessor/reader/writer/predicate combinations,
87 # but that is getting a little excessive so I
88 # wont worry about it for now. Maybe if I get