6 use Test::More tests => 38;
14 my $meta = Class::MOP::Attribute->meta();
15 isa_ok($meta, 'Class::MOP::Class');
24 has_predicate predicate
29 attach_to_class detach_from_class
31 generate_accessor_method
32 generate_reader_method
33 generate_writer_method
34 generate_predicate_method
43 [ sort $meta->get_method_list ],
44 '... our method list matches');
46 foreach my $method_name (@methods) {
47 ok($meta->has_method($method_name), '... Class::MOP::Attribute->has_method(' . $method_name . ')');
51 name accessor reader writer predicate
52 init_arg default associated_class
57 [ sort $meta->get_attribute_list ],
58 '... our attribute list matches');
60 foreach my $attribute_name (@attributes) {
61 ok($meta->has_attribute($attribute_name), '... Class::MOP::Attribute->has_attribute(' . $attribute_name . ')');
64 # We could add some tests here to make sure that
65 # the attribute have the appropriate
66 # accessor/reader/writer/predicate combinations,
67 # but that is getting a little excessive so I
68 # wont worry about it for now. Maybe if I get