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