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 $TODO = q{Mouse is not yet completed};
14 package Foo::Trait::Constructor;
17 around _generate_BUILDALL => sub {
20 return $self->$orig(@_) . '$::called++;';
27 Mouse::Util::MetaRole::apply_metaroles(
30 constructor => ['Foo::Trait::Constructor'],
36 is($called, 0, "no calls before inlining");
37 Foo->meta->make_immutable;
40 is($called, 1, "inlined constructor has trait modifications");
42 ok(Foo->meta->constructor_class->meta->does_role('Foo::Trait::Constructor'),
43 "class has correct constructor traits");
54 is($called, 0, "no calls before inlining");
56 Foo::Sub->meta->make_immutable;
59 is($called, 1, "inherits constructor trait properly");
61 ok(Foo::Sub->meta->constructor_class->meta->can('does_role')
62 && Foo::Sub->meta->constructor_class->meta->does_role('Foo::Trait::Constructor'),
63 "subclass inherits constructor traits");
71 use Mouse -traits => ['Foo2::Role'];
80 my $meta = __PACKAGE__->meta;
81 ::lives_ok { $meta->superclasses('Foo2') } "can set superclasses once";
82 ::isa_ok($meta, Foo2->meta->meta->name);
83 ::lives_ok { $meta->superclasses('Bar2') } "can still set superclasses";
84 ::isa_ok($meta, Bar2->meta->meta->name);
85 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
87 "still have the role attached");
88 ::ok(!$meta->is_immutable,
89 "immutable superclass doesn't make this class immutable");
90 ::lives_ok { $meta->make_immutable } "can still make immutable";
98 use Mouse -traits => ['Foo3::Role'];
102 use Mouse -traits => ['Foo3::Role'];
103 my $meta = __PACKAGE__->meta;
104 ::lives_ok { $meta->superclasses('Foo2') } "can set superclasses once";
105 ::isa_ok($meta, Foo2->meta->meta->name);
106 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
107 ['Foo2::Role', 'Foo3::Role'],
108 "reconciled roles correctly");
109 ::lives_ok { $meta->superclasses('Bar3') } "can still set superclasses";
110 ::isa_ok($meta, Bar3->meta->meta->name);
111 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
112 ['Foo2::Role', 'Foo3::Role'],
113 "roles still the same");
114 ::ok(!$meta->is_immutable,
115 "immutable superclass doesn't make this class immutable");
116 ::lives_ok { $meta->make_immutable } "can still make immutable";
124 use Mouse -traits => ['Foo3::Role'];
125 my $meta = __PACKAGE__->meta;
126 ::lives_ok { $meta->superclasses('Foo2') } "can set superclasses once";
127 ::isa_ok($meta, Foo2->meta->meta->name);
128 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
129 ['Foo2::Role', 'Foo3::Role'],
130 "reconciled roles correctly");
131 ::lives_ok { $meta->superclasses('Quux3') } "can still set superclasses";
132 ::isa_ok($meta, Quux3->meta->meta->name);
133 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
134 ['Foo2::Role', 'Foo3::Role'],
135 "roles still the same");
136 ::ok(!$meta->is_immutable,
137 "immutable superclass doesn't make this class immutable");
138 ::lives_ok { $meta->make_immutable } "can still make immutable";
147 use Mouse -traits => ['Foo4::Role'];
148 __PACKAGE__->meta->make_immutable;
157 my $meta = __PACKAGE__->meta;
158 ::lives_ok { $meta->superclasses('Foo4') } "can set superclasses once";
159 ::isa_ok($meta, Foo4->meta->_get_mutable_metaclass_name);
160 ::lives_ok { $meta->superclasses('Bar4') } "can still set superclasses";
161 ::isa_ok($meta, Bar4->meta->meta->name);
162 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
164 "still have the role attached");
165 ::ok(!$meta->is_immutable,
166 "immutable superclass doesn't make this class immutable");
167 ::lives_ok { $meta->make_immutable } "can still make immutable";
175 use Mouse -traits => ['Foo5::Role'];
179 use Mouse -traits => ['Foo5::Role'];
180 my $meta = __PACKAGE__->meta;
181 ::lives_ok { $meta->superclasses('Foo4') } "can set superclasses once";
182 ::isa_ok($meta, Foo4->meta->_get_mutable_metaclass_name);
183 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
184 ['Foo4::Role', 'Foo5::Role'],
185 "reconciled roles correctly");
186 ::lives_ok { $meta->superclasses('Bar5') } "can still set superclasses";
187 ::isa_ok($meta, Bar5->meta->meta->name);
188 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
189 ['Foo4::Role', 'Foo5::Role'],
190 "roles still the same");
191 ::ok(!$meta->is_immutable,
192 "immutable superclass doesn't make this class immutable");
193 ::lives_ok { $meta->make_immutable } "can still make immutable";
201 use Mouse -traits => ['Foo5::Role'];
202 my $meta = __PACKAGE__->meta;
203 ::lives_ok { $meta->superclasses('Foo4') } "can set superclasses once";
204 ::isa_ok($meta, Foo4->meta->_get_mutable_metaclass_name);
205 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
206 ['Foo4::Role', 'Foo5::Role'],
207 "reconciled roles correctly");
208 ::lives_ok { $meta->superclasses('Quux5') } "can still set superclasses";
209 ::isa_ok($meta, Quux5->meta->meta->name);
210 ::is_deeply([sort map { $_->name } $meta->meta->calculate_all_roles_with_inheritance],
211 ['Foo4::Role', 'Foo5::Role'],
212 "roles still the same");
213 ::ok(!$meta->is_immutable,
214 "immutable superclass doesn't make this class immutable");
215 ::lives_ok { $meta->make_immutable } "can still make immutable";
219 package Foo5::Meta::Role;
223 package Foo5::SuperClass::WithMetaRole;
224 use Mouse -traits =>'Foo5::Meta::Role';
227 package Foo5::SuperClass::After::Attribute;
233 my @superclasses = ('Foo5::SuperClass::WithMetaRole');
234 extends @superclasses;
236 has an_attribute_generating_methods => ( is => 'ro' );
238 push(@superclasses, 'Foo5::SuperClass::After::Attribute');
241 extends @superclasses;
242 } 'MI extends after_generated_methods with metaclass roles';
244 extends reverse @superclasses;
246 'MI extends after_generated_methods with metaclass roles (reverse)';
250 package Foo6::Meta::Role;
254 package Foo6::SuperClass::WithMetaRole;
255 use Mouse -traits =>'Foo6::Meta::Role';
258 package Foo6::Meta::OtherRole;
262 package Foo6::SuperClass::After::Attribute;
263 use Mouse -traits =>'Foo6::Meta::OtherRole';
268 my @superclasses = ('Foo6::SuperClass::WithMetaRole');
269 extends @superclasses;
271 has an_attribute_generating_methods => ( is => 'ro' );
273 push(@superclasses, 'Foo6::SuperClass::After::Attribute');
276 extends @superclasses;
277 } qr/compat.*pristine/,
278 'unsafe MI extends after_generated_methods with metaclass roles';
280 extends reverse @superclasses;
281 } qr/compat.*pristine/,
282 'unsafe MI extends after_generated_methods with metaclass roles (reverse)';
286 package Foo7::Meta::Trait;
292 use Mouse -traits => ['Foo7::Meta::Trait'];
297 # in an external file
298 use Mouse -traits => ['Bar7::Meta::Trait'];
299 ::lives_ok { extends 'Foo7' } "role reconciliation works";
304 # in an external file
305 use Mouse -traits => ['Bar7::Meta::Trait2'];
306 ::lives_ok { extends 'Foo7' } "role reconciliation works";