6 use Test::More tests => 19;
11 use_ok('Class::MOP::Class');
16 our $VERSION = '0.01';
22 my $Foo = Class::MOP::Class->initialize('Foo');
23 isa_ok($Foo, 'Class::MOP::Class');
25 my $Bar = Class::MOP::Class->initialize('Bar');
26 isa_ok($Bar, 'Class::MOP::Class');
28 is($Foo->name, 'Foo', '... Foo->name == Foo');
29 is($Bar->name, 'Bar', '... Bar->name == Bar');
31 is($Foo->version, '0.01', '... Foo->version == 0.01');
32 is($Bar->version, undef, '... Bar->version == undef');
34 is_deeply([$Foo->superclasses], [], '... Foo has no superclasses');
35 is_deeply([$Bar->superclasses], ['Foo'], '... Bar->superclasses == (Foo)');
37 $Foo->superclasses('UNIVERSAL');
39 is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now');
42 [ $Foo->class_precedence_list ],
43 [ 'Foo', 'UNIVERSAL' ],
44 '... Foo->class_precedence_list == (Foo, UNIVERSAL)');
47 [ $Bar->class_precedence_list ],
48 [ 'Bar', 'Foo', 'UNIVERSAL' ],
49 '... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL)');
51 # create a class using Class::MOP::Class ...
53 my $Baz = Class::MOP::Class->create(
55 superclasses => [ 'Bar' ]
57 isa_ok($Baz, 'Class::MOP::Class');
58 is(Class::MOP::Class->initialize('Baz'), $Baz, '... our metaclasses are singletons');
60 is($Baz->name, 'Baz', '... Baz->name == Baz');
61 is($Baz->version, '0.10', '... Baz->version == 0.10');
63 is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)');
66 [ $Baz->class_precedence_list ],
67 [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ],
68 '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)');