2 # This is automatically generated by author/import-moose-test.pl.
3 # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
4 use t::lib::MooseCompat;
9 use lib 't/lib', 'lib';
12 $TODO = q{Mouse is not yet completed};
15 use Mouse::Util::MetaRole;
19 package My::Meta::Class;
21 extends 'Mouse::Meta::Class';
27 has 'foo' => ( is => 'ro', default => 10 );
42 Mouse::Util::MetaRole::apply_metaroles(
43 for => My::Class->meta,
44 class_metaroles => { class => ['Role::Foo'] },
47 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
48 'apply Role::Foo to My::Class->meta()' );
49 is( My::Class->meta()->foo(), 10,
50 '... and call foo() on that meta object' );
54 Mouse::Util::MetaRole::apply_metaroles(
56 class_metaroles => { attribute => ['Role::Foo'] },
59 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
60 q{apply Role::Foo to My::Class->meta()'s attribute metaclass} );
61 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
62 '... My::Class->meta() still does Role::Foo' );
64 My::Class->meta()->add_attribute( 'size', is => 'ro' );
65 is( My::Class->meta()->get_attribute('size')->foo(), 10,
66 '... call foo() on an attribute metaclass object' );
70 Mouse::Util::MetaRole::apply_metaroles(
72 class_metaroles => { method => ['Role::Foo'] },
75 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
76 q{apply Role::Foo to My::Class->meta()'s method metaclass} );
77 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
78 '... My::Class->meta() still does Role::Foo' );
79 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
80 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
82 My::Class->meta()->add_method( 'bar' => sub { 'bar' } );
83 is( My::Class->meta()->get_method('bar')->foo(), 10,
84 '... call foo() on a method metaclass object' );
88 Mouse::Util::MetaRole::apply_metaroles(
90 class_metaroles => { wrapped_method => ['Role::Foo'] },
93 ok( My::Class->meta()->wrapped_method_metaclass()->meta()->does_role('Role::Foo'),
94 q{apply Role::Foo to My::Class->meta()'s wrapped method metaclass} );
95 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
96 '... My::Class->meta() still does Role::Foo' );
97 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
98 '... My::Class->meta() still does Role::Foo' );
99 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
100 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
102 My::Class->meta()->add_after_method_modifier( 'bar' => sub { 'bar' } );
103 is( My::Class->meta()->get_method('bar')->foo(), 10,
104 '... call foo() on a wrapped method metaclass object' );
108 Mouse::Util::MetaRole::apply_metaroles(
110 class_metaroles => { instance => ['Role::Foo'] },
113 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
114 q{apply Role::Foo to My::Class->meta()'s instance metaclass} );
115 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
116 '... My::Class->meta() still does Role::Foo' );
117 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
118 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
119 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
120 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
122 is( My::Class->meta()->get_meta_instance()->foo(), 10,
123 '... call foo() on an instance metaclass object' );
127 Mouse::Util::MetaRole::apply_metaroles(
129 class_metaroles => { constructor => ['Role::Foo'] },
132 ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
133 q{apply Role::Foo to My::Class->meta()'s constructor class} );
134 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
135 '... My::Class->meta() still does Role::Foo' );
136 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
137 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
138 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
139 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
140 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
141 q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
143 # Actually instantiating the constructor class is too freaking hard!
144 ok( My::Class->meta()->constructor_class()->can('foo'),
145 '... constructor class has a foo method' );
149 Mouse::Util::MetaRole::apply_metaroles(
151 class_metaroles => { destructor => ['Role::Foo'] },
154 ok( My::Class->meta()->destructor_class()->meta()->does_role('Role::Foo'),
155 q{apply Role::Foo to My::Class->meta()'s destructor class} );
156 ok( My::Class->meta()->meta()->does_role('Role::Foo'),
157 '... My::Class->meta() still does Role::Foo' );
158 ok( My::Class->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
159 q{... My::Class->meta()'s attribute metaclass still does Role::Foo} );
160 ok( My::Class->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
161 q{... My::Class->meta()'s method metaclass still does Role::Foo} );
162 ok( My::Class->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
163 q{... My::Class->meta()'s instance metaclass still does Role::Foo} );
164 ok( My::Class->meta()->constructor_class()->meta()->does_role('Role::Foo'),
165 q{... My::Class->meta()'s constructor class still does Role::Foo} );
167 # same problem as the constructor class
168 ok( My::Class->meta()->destructor_class()->can('foo'),
169 '... destructor class has a foo method' );
173 Mouse::Util::MetaRole::apply_metaroles(
175 role_metaroles => { application_to_class => ['Role::Foo'] },
178 ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
179 q{apply Role::Foo to My::Role->meta's application_to_class class} );
181 is( My::Role->meta->application_to_class_class->new->foo, 10,
182 q{... call foo() on an application_to_class instance} );
186 Mouse::Util::MetaRole::apply_metaroles(
188 role_metaroles => { application_to_role => ['Role::Foo'] },
191 ok( My::Role->meta->application_to_role_class->meta->does_role('Role::Foo'),
192 q{apply Role::Foo to My::Role->meta's application_to_role class} );
193 ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
194 q{... My::Role->meta's application_to_class class still does Role::Foo} );
196 is( My::Role->meta->application_to_role_class->new->foo, 10,
197 q{... call foo() on an application_to_role instance} );
201 Mouse::Util::MetaRole::apply_metaroles(
203 role_metaroles => { application_to_instance => ['Role::Foo'] },
206 ok( My::Role->meta->application_to_instance_class->meta->does_role('Role::Foo'),
207 q{apply Role::Foo to My::Role->meta's application_to_instance class} );
208 ok( My::Role->meta->application_to_role_class->meta->does_role('Role::Foo'),
209 q{... My::Role->meta's application_to_role class still does Role::Foo} );
210 ok( My::Role->meta->application_to_class_class->meta->does_role('Role::Foo'),
211 q{... My::Role->meta's application_to_class class still does Role::Foo} );
213 is( My::Role->meta->application_to_instance_class->new->foo, 10,
214 q{... call foo() on an application_to_instance instance} );
218 Mouse::Util::MetaRole::apply_base_class_roles(
220 roles => ['Role::Foo'],
223 ok( My::Class->meta()->does_role('Role::Foo'),
224 'apply Role::Foo to My::Class base class' );
225 is( My::Class->new()->foo(), 10,
226 '... call foo() on a My::Class object' );
236 Mouse::Util::MetaRole::apply_metaroles(
239 class => ['Role::Foo'],
240 attribute => ['Role::Foo'],
241 method => ['Role::Foo'],
242 instance => ['Role::Foo'],
243 constructor => ['Role::Foo'],
244 destructor => ['Role::Foo'],
248 ok( My::Class2->meta()->meta()->does_role('Role::Foo'),
249 'apply Role::Foo to My::Class2->meta()' );
250 is( My::Class2->meta()->foo(), 10,
251 '... and call foo() on that meta object' );
252 ok( My::Class2->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
253 q{apply Role::Foo to My::Class2->meta()'s attribute metaclass} );
254 My::Class2->meta()->add_attribute( 'size', is => 'ro' );
256 is( My::Class2->meta()->get_attribute('size')->foo(), 10,
257 '... call foo() on an attribute metaclass object' );
259 ok( My::Class2->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
260 q{apply Role::Foo to My::Class2->meta()'s method metaclass} );
262 My::Class2->meta()->add_method( 'bar' => sub { 'bar' } );
263 is( My::Class2->meta()->get_method('bar')->foo(), 10,
264 '... call foo() on a method metaclass object' );
266 ok( My::Class2->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
267 q{apply Role::Foo to My::Class2->meta()'s instance metaclass} );
268 is( My::Class2->meta()->get_meta_instance()->foo(), 10,
269 '... call foo() on an instance metaclass object' );
271 ok( My::Class2->meta()->constructor_class()->meta()->does_role('Role::Foo'),
272 q{apply Role::Foo to My::Class2->meta()'s constructor class} );
273 ok( My::Class2->meta()->constructor_class()->can('foo'),
274 '... constructor class has a foo method' );
276 ok( My::Class2->meta()->destructor_class()->meta()->does_role('Role::Foo'),
277 q{apply Role::Foo to My::Class2->meta()'s destructor class} );
278 ok( My::Class2->meta()->destructor_class()->can('foo'),
279 '... destructor class has a foo method' );
287 Mouse::Exporter->setup_import_methods( also => 'Mouse' );
293 Mouse->init_meta( %p, metaclass => 'My::Meta::Class' );
305 Mouse::Util::MetaRole::apply_metaroles(
307 class_metaroles => { class => ['Role::Foo'] },
310 ok( My::Class3->meta()->meta()->does_role('Role::Foo'),
311 'apply Role::Foo to My::Class3->meta()' );
312 is( My::Class3->meta()->foo(), 10,
313 '... and call foo() on that meta object' );
314 ok( ( grep { $_ eq 'My::Meta::Class' } My::Class3->meta()->meta()->superclasses() ),
315 'apply_metaroles() does not interfere with metaclass set via Mouse->init_meta()' );
321 has 'bar' => ( is => 'ro', default => 200 );
330 Mouse::Util::MetaRole::apply_metaroles(
332 class_metaroles => { class => ['Role::Foo'] },
335 ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
336 'apply Role::Foo to My::Class4->meta()' );
338 Mouse::Util::MetaRole::apply_metaroles(
340 class_metaroles => { class => ['Role::Bar'] },
343 ok( My::Class4->meta()->meta()->does_role('Role::Bar'),
344 'apply Role::Bar to My::Class4->meta()' );
345 ok( My::Class4->meta()->meta()->does_role('Role::Foo'),
346 '... and My::Class4->meta() still does Role::Foo' );
357 ok( My::Class5->meta()->meta()->does_role('Role::Foo'),
358 q{My::Class5->meta()'s does Role::Foo because it extends My::Class} );
359 ok( My::Class5->meta()->attribute_metaclass()->meta()->does_role('Role::Foo'),
360 q{My::Class5->meta()'s attribute metaclass also does Role::Foo} );
361 ok( My::Class5->meta()->method_metaclass()->meta()->does_role('Role::Foo'),
362 q{My::Class5->meta()'s method metaclass also does Role::Foo} );
363 ok( My::Class5->meta()->instance_metaclass()->meta()->does_role('Role::Foo'),
364 q{My::Class5->meta()'s instance metaclass also does Role::Foo} );
365 ok( My::Class5->meta()->constructor_class()->meta()->does_role('Role::Foo'),
366 q{My::Class5->meta()'s constructor class also does Role::Foo} );
367 ok( My::Class5->meta()->destructor_class()->meta()->does_role('Role::Foo'),
368 q{My::Class5->meta()'s destructor class also does Role::Foo} );
372 Mouse::Util::MetaRole::apply_metaroles(
374 class_metaroles => { class => ['Role::Bar'] },
377 ok( My::Class5->meta()->meta()->does_role('Role::Bar'),
378 q{apply Role::Bar My::Class5->meta()} );
379 ok( My::Class5->meta()->meta()->does_role('Role::Foo'),
380 q{... and My::Class5->meta() still does Role::Foo} );
387 Mouse::Util::MetaRole::apply_metaroles(
389 class_metaroles => { class => ['Role::Bar'] },
396 ok( My::Class6->meta()->meta()->does_role('Role::Bar'),
397 q{apply Role::Bar My::Class6->meta() before extends} );
398 ok( My::Class6->meta()->meta()->does_role('Role::Foo'),
399 q{... and My::Class6->meta() does Role::Foo because My::Class6 extends My::Class} );
402 # This is the hack that used to be needed to work around the
403 # _fix_metaclass_incompatibility problem. You called extends() (which
404 # in turn calls _fix_metaclass_imcompatibility) _before_ you apply
405 # more extensions in the subclass. We wabt to make sure this continues
406 # to work in the future.
411 # In real usage this would go in a BEGIN block so it happened
412 # before apply_metaroles was called by an extension.
415 Mouse::Util::MetaRole::apply_metaroles(
417 class_metaroles => { class => ['Role::Bar'] },
422 ok( My::Class7->meta()->meta()->does_role('Role::Bar'),
423 q{apply Role::Bar My::Class7->meta() before extends} );
424 ok( My::Class7->meta()->meta()->does_role('Role::Foo'),
425 q{... and My::Class7->meta() does Role::Foo because My::Class7 extends My::Class} );
432 Mouse::Util::MetaRole::apply_metaroles(
435 class => ['Role::Bar'],
436 attribute => ['Role::Bar'],
444 ok( My::Class8->meta()->meta()->does_role('Role::Bar'),
445 q{apply Role::Bar My::Class8->meta() before extends} );
446 ok( My::Class8->meta()->meta()->does_role('Role::Foo'),
447 q{... and My::Class8->meta() does Role::Foo because My::Class8 extends My::Class} );
448 ok( My::Class8->meta()->attribute_metaclass->meta()->does_role('Role::Bar'),
449 q{apply Role::Bar to My::Class8->meta()->attribute_metaclass before extends} );
450 ok( My::Class8->meta()->attribute_metaclass->meta()->does_role('Role::Foo'),
451 q{... and My::Class8->meta()->attribute_metaclass does Role::Foo because My::Class8 extends My::Class} );
459 Mouse::Util::MetaRole::apply_metaroles(
461 class_metaroles => { attribute => ['Role::Bar'] },
468 ok( My::Class9->meta()->meta()->does_role('Role::Foo'),
469 q{... and My::Class9->meta() does Role::Foo because My::Class9 extends My::Class} );
470 ok( My::Class9->meta()->attribute_metaclass->meta()->does_role('Role::Bar'),
471 q{apply Role::Bar to My::Class9->meta()->attribute_metaclass before extends} );
472 ok( My::Class9->meta()->attribute_metaclass->meta()->does_role('Role::Foo'),
473 q{... and My::Class9->meta()->attribute_metaclass does Role::Foo because My::Class9 extends My::Class} );
476 # This tests applying meta roles to a metaclass's metaclass. This is
477 # completely insane, but is exactly what happens with
478 # Fey::Meta::Class::Table. It's a subclass of Mouse::Meta::Class
479 # itself, and then it _uses_ MouseX::ClassAttribute, so the metaclass
480 # for Fey::Meta::Class::Table does a role.
482 # At one point this caused a metaclass incompatibility error down
483 # below, when we applied roles to the metaclass of My::Class10. It's
484 # all madness but as long as the tests pass we're happy.
486 package My::Meta::Class2;
488 extends 'Mouse::Meta::Class';
490 Mouse::Util::MetaRole::apply_metaroles(
491 for => 'My::Meta::Class2',
492 class_metaroles => { class => ['Role::Foo'] },
499 extends 'Mouse::Object';
506 Mouse::Exporter->setup_import_methods( also => 'Mouse' );
514 metaclass => 'My::Meta::Class2',
515 base_class => 'My::Object',
524 Mouse::Util::MetaRole::apply_metaroles(
525 for => 'My::Class10',
526 class_metaroles => { class => ['Role::Bar'] },
531 ok( My::Class10->meta()->meta()->meta()->does_role('Role::Foo'),
532 q{My::Class10->meta()->meta() does Role::Foo } );
533 ok( My::Class10->meta()->meta()->does_role('Role::Bar'),
534 q{My::Class10->meta()->meta() does Role::Bar } );
535 ok( My::Class10->meta()->isa('My::Meta::Class2'),
536 q{... and My::Class10->meta still isa(My::Meta::Class2)} );
537 ok( My::Class10->isa('My::Object'),
538 q{... and My::Class10 still isa(My::Object)} );
542 package My::Constructor;
544 use base 'Mouse::Meta::Method';
552 __PACKAGE__->meta->constructor_class('My::Constructor');
554 Mouse::Util::MetaRole::apply_metaroles(
555 for => 'My::Class11',
556 class_metaroles => { class => ['Role::Foo'] },
561 ok( My::Class11->meta()->meta()->does_role('Role::Foo'),
562 q{My::Class11->meta()->meta() does Role::Foo } );
563 is( My::Class11->meta()->constructor_class, 'My::Constructor',
564 q{... and explicitly set constructor_class value is unchanged)} );
568 package ExportsMouse;
570 Mouse::Exporter->setup_import_methods(
577 Mouse->init_meta(%p);
578 return Mouse::Util::MetaRole::apply_metaroles(
579 for => $p{for_class},
580 # Causes us to recurse through init_meta, as we have to
581 # load MyMetaclassRole from disk.
582 class_metaroles => { class => [qw/MyMetaclassRole/] },
588 package UsesExportedMouse;
589 ExportsMouse->import;
590 } 'import module which loads a role from disk during init_meta';
593 package Foo::Meta::Role;
601 Mouse::Exporter->setup_import_methods(
602 also => 'Mouse::Role',
609 Mouse::Role->init_meta(%p);
611 return Mouse::Util::MetaRole::apply_metaroles(
612 for => $p{for_class},
613 role_metaroles => { method => ['Foo::Meta::Role'] },
636 My::Class12->meta->does_role( 'Role::Baz' ),
640 my $method = My::Class12->meta->get_method( 'bla' );
642 $method->meta->does_role( 'Foo::Meta::Role' ),
643 'method_metaclass_role applied'
651 Mouse::Util::MetaRole::apply_metaroles(
653 class_metaroles => { constructor => ['Role::Foo'] },
666 Parent->meta->constructor_class->meta->can('does_role')
667 && Parent->meta->constructor_class->meta->does_role('Role::Foo'),
668 'Parent constructor class has metarole from Parent'
672 Child->meta->constructor_class->meta->can('does_role')
673 && Child->meta->constructor_class->meta->does_role(
675 'Child constructor class has metarole from Parent'