Commit | Line | Data |
8b978dd5 |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
1a7ebbb3 |
6 | use Test::More tests => 19; |
0882828e |
7 | use Test::Exception; |
8b978dd5 |
8 | |
9 | BEGIN { |
10 | use_ok('Class::MOP'); |
11 | use_ok('Class::MOP::Class'); |
12 | } |
13 | |
14 | { |
15 | package Foo; |
16 | our $VERSION = '0.01'; |
17 | |
18 | package Bar; |
19 | our @ISA = ('Foo'); |
20 | } |
21 | |
bfe4d0fc |
22 | my $Foo = Class::MOP::Class->initialize('Foo'); |
8b978dd5 |
23 | isa_ok($Foo, 'Class::MOP::Class'); |
24 | |
bfe4d0fc |
25 | my $Bar = Class::MOP::Class->initialize('Bar'); |
8b978dd5 |
26 | isa_ok($Bar, 'Class::MOP::Class'); |
27 | |
28 | is($Foo->name, 'Foo', '... Foo->name == Foo'); |
29 | is($Bar->name, 'Bar', '... Bar->name == Bar'); |
30 | |
31 | is($Foo->version, '0.01', '... Foo->version == 0.01'); |
32 | is($Bar->version, undef, '... Bar->version == undef'); |
33 | |
34 | is_deeply([$Foo->superclasses], [], '... Foo has no superclasses'); |
35 | is_deeply([$Bar->superclasses], ['Foo'], '... Bar->superclasses == (Foo)'); |
36 | |
37 | $Foo->superclasses('UNIVERSAL'); |
38 | |
39 | is_deeply([$Foo->superclasses], ['UNIVERSAL'], '... Foo->superclasses == (UNIVERSAL) now'); |
40 | |
41 | is_deeply( |
42 | [ $Foo->class_precedence_list ], |
43 | [ 'Foo', 'UNIVERSAL' ], |
44 | '... Foo->class_precedence_list == (Foo, UNIVERSAL)'); |
45 | |
46 | is_deeply( |
47 | [ $Bar->class_precedence_list ], |
48 | [ 'Bar', 'Foo', 'UNIVERSAL' ], |
49 | '... Bar->class_precedence_list == (Bar, Foo, UNIVERSAL)'); |
50 | |
51 | # create a class using Class::MOP::Class ... |
52 | |
53 | my $Baz = Class::MOP::Class->create( |
54 | 'Baz' => '0.10' => ( |
55 | superclasses => [ 'Bar' ] |
56 | )); |
57 | isa_ok($Baz, 'Class::MOP::Class'); |
bfe4d0fc |
58 | is(Class::MOP::Class->initialize('Baz'), $Baz, '... our metaclasses are singletons'); |
8b978dd5 |
59 | |
60 | is($Baz->name, 'Baz', '... Baz->name == Baz'); |
61 | is($Baz->version, '0.10', '... Baz->version == 0.10'); |
62 | |
63 | is_deeply([$Baz->superclasses], ['Bar'], '... Baz->superclasses == (Bar)'); |
64 | |
65 | is_deeply( |
66 | [ $Baz->class_precedence_list ], |
67 | [ 'Baz', 'Bar', 'Foo', 'UNIVERSAL' ], |
68 | '... Baz->class_precedence_list == (Baz, Bar, Foo, UNIVERSAL)'); |