6 use Test::More no_plan => 1;
10 use_ok('Class::MOP::Class');
13 my $meta = Class::MOP::Class->initialize('Class::MOP::Class');
14 isa_ok($meta, 'Class::MOP::Class');
16 foreach my $method_name (qw(
21 superclasses class_precedence_list
23 has_method get_method add_method remove_method
24 get_method_list compute_all_applicable_methods find_all_methods_by_name
26 has_attribute get_attribute add_attribute remove_attribute
27 get_attribute_list compute_all_applicable_attributes create_all_accessors
29 ok($meta->has_method($method_name), '... Class::MOP::Class->has_method(' . $method_name . ')');
32 is($meta->get_method($method_name),
33 \&{'Class::MOP::Class::' . $method_name},
34 '... Class::MOP::Class->get_method(' . $method_name . ') == &Class::MOP::Class::' . $method_name);
38 is($meta->name, 'Class::MOP::Class', '... Class::MOP::Class->name');
39 is($meta->version, $Class::MOP::Class::VERSION, '... Class::MOP::Class->version');
42 [ $meta->superclasses ],
44 '... Class::MOP::Class->superclasses == []');
47 [ $meta->class_precedence_list ],
48 [ 'Class::MOP::Class' ],
49 '... Class::MOP::Class->class_precedence_list == []');