move core meta-attribute attributes to a mixin class for benefit of role attributes
[gitmo/Class-MOP.git] / t / 000_load.t
CommitLineData
8b978dd5 1use strict;
2use warnings;
3
86a4d873 4use Test::More;
8b978dd5 5
6BEGIN {
1a7ebbb3 7 use_ok('Class::MOP');
2611f98e 8 use_ok('Class::MOP::Mixin::AttributeBase');
30bf0c82 9 use_ok('Class::MOP::Mixin::HasAttributes');
10 use_ok('Class::MOP::Mixin::HasMethods');
b5fc2d24 11 use_ok('Class::MOP::Package');
12 use_ok('Class::MOP::Module');
8b978dd5 13 use_ok('Class::MOP::Class');
29d4e92a 14 use_ok('Class::MOP::Class::Immutable::Trait');
e3e651fb 15 use_ok('Class::MOP::Method');
b5fc2d24 16 use_ok('Class::MOP::Method');
17 use_ok('Class::MOP::Method::Wrapped');
29d4e92a 18 use_ok('Class::MOP::Method::Inlined');
b5fc2d24 19 use_ok('Class::MOP::Method::Generated');
20 use_ok('Class::MOP::Method::Accessor');
21 use_ok('Class::MOP::Method::Constructor');
22 use_ok('Class::MOP::Instance');
23 use_ok('Class::MOP::Object');
d41e86f2 24}
25
26# make sure we are tracking metaclasses correctly
27
28my %METAS = (
1f833546 29 'Class::MOP::Attribute' => Class::MOP::Attribute->meta,
29d4e92a 30 'Class::MOP::Method::Inlined' => Class::MOP::Method::Inlined->meta,
1f833546 31 'Class::MOP::Method::Generated' => Class::MOP::Method::Generated->meta,
32 'Class::MOP::Method::Accessor' => Class::MOP::Method::Accessor->meta,
33 'Class::MOP::Method::Constructor' =>
34 Class::MOP::Method::Constructor->meta,
2611f98e 35 'Class::MOP::Mixin::AttributeBase' => Class::MOP::Mixin::AttributeBase->meta,
30bf0c82 36 'Class::MOP::Mixin::HasAttributes' => Class::MOP::Mixin::HasAttributes->meta,
37 'Class::MOP::Mixin::HasMethods' => Class::MOP::Mixin::HasMethods->meta,
1f833546 38 'Class::MOP::Package' => Class::MOP::Package->meta,
39 'Class::MOP::Module' => Class::MOP::Module->meta,
40 'Class::MOP::Class' => Class::MOP::Class->meta,
41 'Class::MOP::Method' => Class::MOP::Method->meta,
42 'Class::MOP::Method::Wrapped' => Class::MOP::Method::Wrapped->meta,
43 'Class::MOP::Instance' => Class::MOP::Instance->meta,
44 'Class::MOP::Object' => Class::MOP::Object->meta,
1b4681df 45 'Class::MOP::Class::Immutable::Trait' => Class::MOP::class_of('Class::MOP::Class::Immutable::Trait'),
f5d08022 46 'Class::MOP::Class::Immutable::Class::MOP::Class' => Class::MOP::Class::Immutable::Class::MOP::Class->meta,
d41e86f2 47);
48
b5fc2d24 49ok( Class::MOP::is_class_loaded($_), '... ' . $_ . ' is loaded' )
50 for keys %METAS;
448b6e55 51
1b4681df 52for my $meta (values %METAS) {
53 # the trait shouldn't be made immutable, it doesn't actually do anything,
54 # and it doesn't even matter because it's not a class that will be
55 # instantiated
56 if ($meta->name eq 'Class::MOP::Class::Immutable::Trait') {
57 ok( $meta->is_mutable(), '... ' . $meta->name . ' is mutable' );
58 }
59 else {
60 ok( $meta->is_immutable(), '... ' . $meta->name . ' is immutable' );
61 }
62}
4d47b77f 63
d41e86f2 64is_deeply(
b5fc2d24 65 {Class::MOP::get_all_metaclasses},
f5d08022 66 \%METAS,
b5fc2d24 67 '... got all the metaclasses'
68);
d41e86f2 69
70is_deeply(
b5fc2d24 71 [
72 sort { $a->name cmp $b->name } Class::MOP::get_all_metaclass_instances
73 ],
74 [
75 Class::MOP::Attribute->meta,
76 Class::MOP::Class->meta,
f5d08022 77 Class::MOP::Class::Immutable::Class::MOP::Class->meta,
1b4681df 78 Class::MOP::class_of('Class::MOP::Class::Immutable::Trait'),
b5fc2d24 79 Class::MOP::Instance->meta,
2243a22b 80 Class::MOP::Method->meta,
d90b42a6 81 Class::MOP::Method::Accessor->meta,
b5fc2d24 82 Class::MOP::Method::Constructor->meta,
83 Class::MOP::Method::Generated->meta,
29d4e92a 84 Class::MOP::Method::Inlined->meta,
b6164407 85 Class::MOP::Method::Wrapped->meta,
2611f98e 86 Class::MOP::Mixin::AttributeBase->meta,
30bf0c82 87 Class::MOP::Mixin::HasAttributes->meta,
88 Class::MOP::Mixin::HasMethods->meta,
b5fc2d24 89 Class::MOP::Module->meta,
90 Class::MOP::Object->meta,
91 Class::MOP::Package->meta,
2243a22b 92 ],
b5fc2d24 93 '... got all the metaclass instances'
94);
d41e86f2 95
96is_deeply(
be7677c7 97 [ sort { $a cmp $b } Class::MOP::get_all_metaclass_names() ],
b5fc2d24 98 [
99 sort qw/
100 Class::MOP::Attribute
101 Class::MOP::Class
f5d08022 102 Class::MOP::Class::Immutable::Class::MOP::Class
103 Class::MOP::Class::Immutable::Trait
2611f98e 104 Class::MOP::Mixin::AttributeBase
30bf0c82 105 Class::MOP::Mixin::HasAttributes
106 Class::MOP::Mixin::HasMethods
b5fc2d24 107 Class::MOP::Instance
108 Class::MOP::Method
109 Class::MOP::Method::Accessor
110 Class::MOP::Method::Constructor
111 Class::MOP::Method::Generated
29d4e92a 112 Class::MOP::Method::Inlined
b5fc2d24 113 Class::MOP::Method::Wrapped
114 Class::MOP::Module
115 Class::MOP::Object
116 Class::MOP::Package
f5d08022 117 /,
b5fc2d24 118 ],
119 '... got all the metaclass names'
120);
121
b5fc2d24 122# testing the meta-circularity of the system
dc76a410 123
b5fc2d24 124is(
1b4681df 125 Class::MOP::Class->meta->meta, Class::MOP::Class->meta->meta->meta,
126 '... Class::MOP::Class->meta->meta == Class::MOP::Class->meta->meta->meta'
b5fc2d24 127);
dc76a410 128
b5fc2d24 129is(
1b4681df 130 Class::MOP::Class->meta->meta->meta, Class::MOP::Class->meta->meta->meta->meta,
131 '... Class::MOP::Class->meta->meta->meta == Class::MOP::Class->meta->meta->meta->meta'
a7b17d6f 132);
133
134is(
1b4681df 135 Class::MOP::Class->meta->meta, Class::MOP::Class->meta->meta->meta->meta,
136 '... Class::MOP::Class->meta->meta == Class::MOP::Class->meta->meta->meta->meta'
b5fc2d24 137);
dc76a410 138
b5fc2d24 139is(
1b4681df 140 Class::MOP::Class->meta->meta, Class::MOP::Class->meta->meta->meta->meta->meta,
141 '... Class::MOP::Class->meta->meta == Class::MOP::Class->meta->meta->meta->meta->meta'
b5fc2d24 142);
dc76a410 143
1b4681df 144isa_ok(Class::MOP::Class->meta, 'Class::MOP::Class');
86a4d873 145
146done_testing;