Moved attribute management to CMOP::HasAttributes.
[gitmo/Class-MOP.git] / t / 010_self_introspection.t
CommitLineData
a5eca695 1use strict;
2use warnings;
3
86a4d873 4use Test::More;
a5eca695 5use Test::Exception;
6
efd3d14c 7use Class::MOP;
8use Class::MOP::Class;
9use Class::MOP::Package;
10use Class::MOP::Module;
a5eca695 11
013b1897 12{
13 my $class = Class::MOP::Class->initialize('Foo');
14 is($class->meta, Class::MOP::Class->meta, '... instance and class both lead to the same meta');
15}
16
6d5355c3 17my $class_mop_class_meta = Class::MOP::Class->meta();
18isa_ok($class_mop_class_meta, 'Class::MOP::Class');
a5eca695 19
6d5355c3 20my $class_mop_package_meta = Class::MOP::Package->meta();
21isa_ok($class_mop_package_meta, 'Class::MOP::Package');
22
23my $class_mop_module_meta = Class::MOP::Module->meta();
24isa_ok($class_mop_module_meta, 'Class::MOP::Module');
25
26my @class_mop_package_methods = qw(
6c2f6b5c 27 _new
6d5355c3 28
a19fcb5b 29 initialize reinitialize
6d5355c3 30
31 name
a5e51f0b 32 namespace
0ac992ee 33
34 add_package_symbol get_package_symbol has_package_symbol remove_package_symbol
ae234dc6 35 list_all_package_symbols get_all_package_symbols remove_package_glob
0ac992ee 36
a5e51f0b 37 _deconstruct_variable_name
b409c969 38
39 get_method_map
6d5355c3 40);
41
42my @class_mop_module_methods = qw(
6c2f6b5c 43 _new
7f436b8c 44
89f66023 45 _instantiate_module
46
4edd0667 47 version authority identifier create
6d5355c3 48);
49
50my @class_mop_class_methods = qw(
6c2f6b5c 51 _new
0ac992ee 52
cc67d48a 53 is_pristine
54
a19fcb5b 55 initialize create
86a4d873 56
715adbb7 57 update_package_cache_flag
e0e4674a 58 reset_package_cache_flag
0ac992ee 59
b9d9fc0b 60 create_anon_class is_anon_class
0ac992ee 61
27e95ba5 62 instance_metaclass get_meta_instance
63 create_meta_instance _create_meta_instance
7b31baf4 64 new_object clone_object
d69fb6b3 65 construct_instance _construct_instance
3c0ad733 66 construct_class_instance _construct_class_instance
d379f552 67 clone_instance _clone_instance
9f363af3 68 rebless_instance rebless_instance_away
11a8a2c1 69 check_metaclass_compatibility _check_metaclass_compatibility
0ac992ee 70
c3f935e1 71 add_meta_instance_dependencies remove_meta_instance_dependencies update_meta_instance_dependencies
da5680be 72 add_dependent_meta_instance remove_dependent_meta_instance
caab0eaa 73 invalidate_meta_instances invalidate_meta_instance
74
462ed2c0 75 superclasses subclasses direct_subclasses class_precedence_list
b53f14fa 76 linearized_isa _superclasses_updated
0ac992ee 77
b1ff395f 78 alias_method get_all_method_names get_all_methods compute_all_applicable_methods
0ac992ee 79 find_method_by_name find_all_methods_by_name find_next_method_by_name
80
81 add_before_method_modifier add_after_method_modifier add_around_method_modifier
ee5e71d4 82
b71bd1cd 83 compute_all_applicable_attributes
b1aaf0dc 84 get_attribute_map
0ac992ee 85
44d6ea77 86 is_mutable is_immutable make_mutable make_immutable
f5d08022 87 _initialize_immutable _install_inlined_code _inlined_methods
88 _add_inlined_method _inline_accessors _inline_constructor
89 _inline_destructor _immutable_options _rebless_as_immutable
90 _rebless_as_mutable _remove_inlined_code
91
e1c7a1b7 92 _immutable_metaclass
28443f51 93 immutable_trait immutable_options
94 constructor_name constructor_class destructor_class
f5d08022 95
77e5fce4 96 DESTROY
7f436b8c 97);
0ac992ee 98
99# check the class ...
100
c0ae440b 101is_deeply([ sort $class_mop_class_meta->get_method_list ], [ sort @class_mop_class_methods ], '... got the correct method list for class');
7b31baf4 102
0586121e 103foreach my $method_name (sort @class_mop_class_methods) {
6d5355c3 104 ok($class_mop_class_meta->has_method($method_name), '... Class::MOP::Class->has_method(' . $method_name . ')');
a5eca695 105 {
106 no strict 'refs';
0ac992ee 107 is($class_mop_class_meta->get_method($method_name)->body,
a5eca695 108 \&{'Class::MOP::Class::' . $method_name},
0ac992ee 109 '... Class::MOP::Class->get_method(' . $method_name . ') == &Class::MOP::Class::' . $method_name);
a5eca695 110 }
111}
112
6d5355c3 113## check the package ....
114
c0ae440b 115is_deeply([ sort $class_mop_package_meta->get_method_list ], [ sort @class_mop_package_methods ], '... got the correct method list for package');
6d5355c3 116
0586121e 117foreach my $method_name (sort @class_mop_package_methods) {
6d5355c3 118 ok($class_mop_package_meta->has_method($method_name), '... Class::MOP::Package->has_method(' . $method_name . ')');
119 {
120 no strict 'refs';
0ac992ee 121 is($class_mop_package_meta->get_method($method_name)->body,
6d5355c3 122 \&{'Class::MOP::Package::' . $method_name},
0ac992ee 123 '... Class::MOP::Package->get_method(' . $method_name . ') == &Class::MOP::Package::' . $method_name);
6d5355c3 124 }
125}
126
7f436b8c 127## check the module ....
128
c0ae440b 129is_deeply([ sort $class_mop_module_meta->get_method_list ], [ sort @class_mop_module_methods ], '... got the correct method list for module');
7f436b8c 130
0586121e 131foreach my $method_name (sort @class_mop_module_methods) {
7f436b8c 132 ok($class_mop_module_meta->has_method($method_name), '... Class::MOP::Module->has_method(' . $method_name . ')');
133 {
134 no strict 'refs';
0ac992ee 135 is($class_mop_module_meta->get_method($method_name)->body,
7f436b8c 136 \&{'Class::MOP::Module::' . $method_name},
0ac992ee 137 '... Class::MOP::Module->get_method(' . $method_name . ') == &Class::MOP::Module::' . $method_name);
7f436b8c 138 }
139}
140
141
7b31baf4 142# check for imported functions which are not methods
143
2eb717d5 144foreach my $non_method_name (qw(
145 confess
9b522fc4 146 blessed
2eb717d5 147 subname
148 svref_2object
149 )) {
0ac992ee 150 ok(!$class_mop_class_meta->has_method($non_method_name), '... NOT Class::MOP::Class->has_method(' . $non_method_name . ')');
2eb717d5 151}
152
7b31baf4 153# check for the right attributes
154
6d5355c3 155my @class_mop_package_attributes = (
8683db0e 156 'package',
157 'namespace',
6d5355c3 158);
159
160my @class_mop_module_attributes = (
8683db0e 161 'version',
162 'authority'
6d5355c3 163);
164
165my @class_mop_class_attributes = (
8683db0e 166 'superclasses',
44d6ea77 167 'instance_metaclass',
f5d08022 168 'immutable_trait',
169 'constructor_name',
170 'constructor_class',
171 'destructor_class',
2bab2be6 172);
7b31baf4 173
6d5355c3 174# check class
175
7b31baf4 176is_deeply(
6d5355c3 177 [ sort $class_mop_class_meta->get_attribute_list ],
c0ae440b 178 [ sort @class_mop_class_attributes ],
179 '... got the right list of attributes'
180);
0ac992ee 181
7b31baf4 182is_deeply(
b1aaf0dc 183 [ sort keys %{$class_mop_class_meta->_attribute_map} ],
c0ae440b 184 [ sort @class_mop_class_attributes ],
0ac992ee 185 '... got the right list of attributes');
7b31baf4 186
0586121e 187foreach my $attribute_name (sort @class_mop_class_attributes) {
0ac992ee 188 ok($class_mop_class_meta->has_attribute($attribute_name), '... Class::MOP::Class->has_attribute(' . $attribute_name . ')');
189 isa_ok($class_mop_class_meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
6d5355c3 190}
191
7f436b8c 192# check module
6d5355c3 193
194is_deeply(
6d5355c3 195 [ sort $class_mop_package_meta->get_attribute_list ],
c0ae440b 196 [ sort @class_mop_package_attributes ],
6d5355c3 197 '... got the right list of attributes');
0ac992ee 198
6d5355c3 199is_deeply(
b1aaf0dc 200 [ sort keys %{$class_mop_package_meta->_attribute_map} ],
c0ae440b 201 [ sort @class_mop_package_attributes ],
0ac992ee 202 '... got the right list of attributes');
6d5355c3 203
0586121e 204foreach my $attribute_name (sort @class_mop_package_attributes) {
0ac992ee 205 ok($class_mop_package_meta->has_attribute($attribute_name), '... Class::MOP::Package->has_attribute(' . $attribute_name . ')');
206 isa_ok($class_mop_package_meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
727919c5 207}
208
0ac992ee 209# check package
7f436b8c 210
211is_deeply(
7f436b8c 212 [ sort $class_mop_module_meta->get_attribute_list ],
c0ae440b 213 [ sort @class_mop_module_attributes ],
7f436b8c 214 '... got the right list of attributes');
0ac992ee 215
7f436b8c 216is_deeply(
b1aaf0dc 217 [ sort keys %{$class_mop_module_meta->_attribute_map} ],
c0ae440b 218 [ sort @class_mop_module_attributes ],
0ac992ee 219 '... got the right list of attributes');
7f436b8c 220
0586121e 221foreach my $attribute_name (sort @class_mop_module_attributes) {
0ac992ee 222 ok($class_mop_module_meta->has_attribute($attribute_name), '... Class::MOP::Module->has_attribute(' . $attribute_name . ')');
223 isa_ok($class_mop_module_meta->get_attribute($attribute_name), 'Class::MOP::Attribute');
7f436b8c 224}
225
7b31baf4 226## check the attributes themselves
227
6d5355c3 228# ... package
229
8683db0e 230ok($class_mop_package_meta->get_attribute('package')->has_reader, '... Class::MOP::Class package has a reader');
231is(ref($class_mop_package_meta->get_attribute('package')->reader), 'HASH', '... Class::MOP::Class package\'s a reader is { name => sub { ... } }');
6d5355c3 232
8683db0e 233ok($class_mop_package_meta->get_attribute('package')->has_init_arg, '... Class::MOP::Class package has a init_arg');
234is($class_mop_package_meta->get_attribute('package')->init_arg, 'package', '... Class::MOP::Class package\'s a init_arg is package');
7b31baf4 235
e3e651fb 236# ... package, but inherited from HasMethods
237ok($class_mop_package_meta->find_attribute_by_name('method_metaclass')->has_reader, '... Class::MOP::Package method_metaclass has a reader');
238is_deeply($class_mop_package_meta->find_attribute_by_name('method_metaclass')->reader,
239 { 'method_metaclass' => \&Class::MOP::HasMethods::method_metaclass },
b1ff395f 240 '... Class::MOP::Package method_metaclass\'s a reader is &method_metaclass');
241
e3e651fb 242ok($class_mop_package_meta->find_attribute_by_name('method_metaclass')->has_init_arg, '... Class::MOP::Package method_metaclass has a init_arg');
243is($class_mop_package_meta->find_attribute_by_name('method_metaclass')->init_arg,
b1ff395f 244 'method_metaclass',
245 '... Class::MOP::Package method_metaclass\'s init_arg is method_metaclass');
246
e3e651fb 247ok($class_mop_package_meta->find_attribute_by_name('method_metaclass')->has_default, '... Class::MOP::Package method_metaclass has a default');
248is($class_mop_package_meta->find_attribute_by_name('method_metaclass')->default,
b1ff395f 249 'Class::MOP::Method',
250 '... Class::MOP::Package method_metaclass\'s a default is Class::MOP:::Method');
251
e3e651fb 252ok($class_mop_package_meta->find_attribute_by_name('wrapped_method_metaclass')->has_reader, '... Class::MOP::Package wrapped_method_metaclass has a reader');
253is_deeply($class_mop_package_meta->find_attribute_by_name('wrapped_method_metaclass')->reader,
254 { 'wrapped_method_metaclass' => \&Class::MOP::HasMethods::wrapped_method_metaclass },
b1ff395f 255 '... Class::MOP::Package wrapped_method_metaclass\'s a reader is &wrapped_method_metaclass');
256
e3e651fb 257ok($class_mop_package_meta->find_attribute_by_name('wrapped_method_metaclass')->has_init_arg, '... Class::MOP::Package wrapped_method_metaclass has a init_arg');
258is($class_mop_package_meta->find_attribute_by_name('wrapped_method_metaclass')->init_arg,
b1ff395f 259 'wrapped_method_metaclass',
260 '... Class::MOP::Package wrapped_method_metaclass\'s init_arg is wrapped_method_metaclass');
261
e3e651fb 262ok($class_mop_package_meta->find_attribute_by_name('method_metaclass')->has_default, '... Class::MOP::Package method_metaclass has a default');
263is($class_mop_package_meta->find_attribute_by_name('method_metaclass')->default,
b1ff395f 264 'Class::MOP::Method',
265 '... Class::MOP::Package method_metaclass\'s a default is Class::MOP:::Method');
266
267
b71bd1cd 268# ... class, but inherited from HasAttributes
7b31baf4 269
b71bd1cd 270ok($class_mop_class_meta->find_attribute_by_name('attributes')->has_reader, '... Class::MOP::Class attributes has a reader');
271is_deeply($class_mop_class_meta->find_attribute_by_name('attributes')->reader,
272 { '_attribute_map' => \&Class::MOP::HasAttributes::_attribute_map },
b1aaf0dc 273 '... Class::MOP::Class attributes\'s a reader is &_attribute_map');
0ac992ee 274
b71bd1cd 275ok($class_mop_class_meta->find_attribute_by_name('attributes')->has_init_arg, '... Class::MOP::Class attributes has a init_arg');
276is($class_mop_class_meta->find_attribute_by_name('attributes')->init_arg,
0ac992ee 277 'attributes',
8683db0e 278 '... Class::MOP::Class attributes\'s a init_arg is attributes');
0ac992ee 279
b71bd1cd 280ok($class_mop_class_meta->find_attribute_by_name('attributes')->has_default, '... Class::MOP::Class attributes has a default');
281is_deeply($class_mop_class_meta->find_attribute_by_name('attributes')->default('Foo'),
0ac992ee 282 {},
8683db0e 283 '... Class::MOP::Class attributes\'s a default of {}');
7b31baf4 284
b71bd1cd 285ok($class_mop_class_meta->find_attribute_by_name('attribute_metaclass')->has_reader, '... Class::MOP::Class attribute_metaclass has a reader');
286is_deeply($class_mop_class_meta->find_attribute_by_name('attribute_metaclass')->reader,
287 { 'attribute_metaclass' => \&Class::MOP::HasAttributes::attribute_metaclass },
8683db0e 288 '... Class::MOP::Class attribute_metaclass\'s a reader is &attribute_metaclass');
0ac992ee 289
b71bd1cd 290ok($class_mop_class_meta->find_attribute_by_name('attribute_metaclass')->has_init_arg, '... Class::MOP::Class attribute_metaclass has a init_arg');
291is($class_mop_class_meta->find_attribute_by_name('attribute_metaclass')->init_arg,
0ac992ee 292 'attribute_metaclass',
8683db0e 293 '... Class::MOP::Class attribute_metaclass\'s a init_arg is attribute_metaclass');
0ac992ee 294
b71bd1cd 295ok($class_mop_class_meta->find_attribute_by_name('attribute_metaclass')->has_default, '... Class::MOP::Class attribute_metaclass has a default');
296is($class_mop_class_meta->find_attribute_by_name('attribute_metaclass')->default,
0ac992ee 297 'Class::MOP::Attribute',
8683db0e 298 '... Class::MOP::Class attribute_metaclass\'s a default is Class::MOP:::Attribute');
0ac992ee 299
7b31baf4 300# check the values of some of the methods
301
6d5355c3 302is($class_mop_class_meta->name, 'Class::MOP::Class', '... Class::MOP::Class->name');
303is($class_mop_class_meta->version, $Class::MOP::Class::VERSION, '... Class::MOP::Class->version');
a5eca695 304
58d75218 305ok($class_mop_class_meta->has_package_symbol('$VERSION'), '... Class::MOP::Class->has_package_symbol($VERSION)');
0ac992ee 306is(${$class_mop_class_meta->get_package_symbol('$VERSION')},
307 $Class::MOP::Class::VERSION,
58d75218 308 '... Class::MOP::Class->get_package_symbol($VERSION)');
7b31baf4 309
a5eca695 310is_deeply(
0ac992ee 311 [ $class_mop_class_meta->superclasses ],
b71bd1cd 312 [ qw/Class::MOP::Module Class::MOP::HasAttributes/ ],
2243a22b 313 '... Class::MOP::Class->superclasses == [ Class::MOP::Module ]');
0ac992ee 314
a5eca695 315is_deeply(
0ac992ee 316 [ $class_mop_class_meta->class_precedence_list ],
2243a22b 317 [ qw/
318 Class::MOP::Class
319 Class::MOP::Module
0ac992ee 320 Class::MOP::Package
e3e651fb 321 Class::MOP::HasMethods
0ac992ee 322 Class::MOP::Object
b71bd1cd 323 Class::MOP::HasAttributes
324 Class::MOP::Object
0ac992ee 325 / ],
2243a22b 326 '... Class::MOP::Class->class_precedence_list == [ Class::MOP::Class Class::MOP::Module Class::MOP::Package ]');
a5eca695 327
6d5355c3 328is($class_mop_class_meta->attribute_metaclass, 'Class::MOP::Attribute', '... got the right value for attribute_metaclass');
329is($class_mop_class_meta->method_metaclass, 'Class::MOP::Method', '... got the right value for method_metaclass');
330is($class_mop_class_meta->instance_metaclass, 'Class::MOP::Instance', '... got the right value for instance_metaclass');
7b31baf4 331
86a4d873 332done_testing;