Commit | Line | Data |
41888e7d |
1 | use strict; |
c47cf415 |
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; |
41888e7d |
5 | use warnings; |
6 | use Test::More; |
c47cf415 |
7 | $TODO = q{Mouse is not yet completed}; |
41888e7d |
8 | |
9 | our @applications; |
10 | |
11 | { |
12 | package CustomApplication; |
13 | use Mouse::Role; |
14 | |
15 | after apply_methods => sub { |
16 | my ( $self, $role, $other ) = @_; |
17 | $self->apply_custom( $role, $other ); |
18 | }; |
19 | |
20 | sub apply_custom { |
21 | shift; |
22 | push @applications, [@_]; |
23 | } |
24 | } |
25 | |
26 | { |
27 | package CustomApplication::ToClass; |
28 | use Mouse::Role; |
29 | |
30 | with 'CustomApplication'; |
31 | } |
32 | |
33 | { |
34 | package CustomApplication::ToRole; |
35 | use Mouse::Role; |
36 | |
37 | with 'CustomApplication'; |
38 | } |
39 | |
40 | { |
41 | package CustomApplication::ToInstance; |
42 | use Mouse::Role; |
43 | |
44 | with 'CustomApplication'; |
45 | } |
46 | |
47 | { |
48 | package CustomApplication::Composite; |
49 | use Mouse::Role; |
50 | |
51 | with 'CustomApplication'; |
52 | |
53 | around apply_custom => sub { |
54 | my ( $next, $self, $composite, $other ) = @_; |
55 | for my $role ( @{ $composite->get_roles } ) { |
56 | $self->$next( $role, $other ); |
57 | } |
58 | }; |
59 | } |
60 | |
61 | { |
62 | package CustomApplication::Composite::ToClass; |
63 | use Mouse::Role; |
64 | |
65 | with 'CustomApplication::Composite'; |
66 | } |
67 | |
68 | { |
69 | package CustomApplication::Composite::ToRole; |
70 | use Mouse::Role; |
71 | |
72 | with 'CustomApplication::Composite'; |
73 | } |
74 | |
75 | { |
76 | package CustomApplication::Composite::ToInstance; |
77 | use Mouse::Role; |
78 | |
79 | with 'CustomApplication::Composite'; |
80 | } |
81 | |
82 | { |
83 | package Role::Composite; |
84 | use Mouse::Role; |
85 | |
86 | around apply_params => sub { |
87 | my ( $next, $self, @args ) = @_; |
c47cf415 |
88 | return Mouse::Util::MetaRole::apply_metaroles( |
89 | for => $self->$next(@args), |
90 | role_metaroles => { |
91 | application_to_class => |
92 | ['CustomApplication::Composite::ToClass'], |
93 | application_to_role => |
94 | ['CustomApplication::Composite::ToRole'], |
95 | application_to_instance => |
96 | ['CustomApplication::Composite::ToInstance'], |
97 | }, |
41888e7d |
98 | ); |
99 | }; |
100 | } |
101 | |
102 | { |
103 | package Role::WithCustomApplication; |
104 | use Mouse::Role; |
105 | |
c47cf415 |
106 | around composition_class_roles => sub { |
107 | my ($orig, $self) = @_; |
108 | return $self->$orig, 'Role::Composite'; |
109 | }; |
41888e7d |
110 | } |
111 | |
112 | { |
113 | package CustomRole; |
114 | Mouse::Exporter->setup_import_methods( |
115 | also => 'Mouse::Role', |
116 | ); |
117 | |
118 | sub init_meta { |
119 | my ( $self, %options ) = @_; |
c47cf415 |
120 | return Mouse::Util::MetaRole::apply_metaroles( |
121 | for => Mouse::Role->init_meta(%options), |
122 | role_metaroles => { |
123 | role => ['Role::WithCustomApplication'], |
124 | application_to_class => |
125 | ['CustomApplication::ToClass'], |
126 | application_to_role => ['CustomApplication::ToRole'], |
127 | application_to_instance => |
128 | ['CustomApplication::ToInstance'], |
129 | }, |
41888e7d |
130 | ); |
131 | } |
132 | } |
133 | |
134 | { |
135 | package My::Role::Normal; |
136 | use Mouse::Role; |
137 | } |
138 | |
139 | { |
140 | package My::Role::Special; |
141 | CustomRole->import; |
142 | } |
143 | |
144 | ok( My::Role::Normal->meta->isa('Mouse::Meta::Role'), "sanity check" ); |
145 | ok( My::Role::Special->meta->isa('Mouse::Meta::Role'), |
146 | "using custom application roles does not change the role metaobject's class" |
147 | ); |
148 | ok( My::Role::Special->meta->meta->does_role('Role::WithCustomApplication'), |
149 | "the role's metaobject has custom applications" ); |
c47cf415 |
150 | is_deeply( [My::Role::Special->meta->composition_class_roles], |
41888e7d |
151 | ['Role::Composite'], |
152 | "the role knows about the specified composition class" ); |
153 | |
154 | { |
155 | package Foo; |
156 | use Mouse; |
157 | |
158 | local @applications; |
159 | with 'My::Role::Special'; |
160 | |
161 | ::is( @applications, 1, 'one role application' ); |
162 | ::is( $applications[0]->[0]->name, 'My::Role::Special', |
163 | "the application's first role was My::Role::Special'" ); |
164 | ::is( $applications[0]->[1]->name, 'Foo', |
165 | "the application provided an additional role" ); |
166 | } |
167 | |
168 | { |
169 | package Bar; |
170 | use Mouse::Role; |
171 | |
172 | local @applications; |
173 | with 'My::Role::Special'; |
174 | |
175 | ::is( @applications, 1 ); |
176 | ::is( $applications[0]->[0]->name, 'My::Role::Special' ); |
177 | ::is( $applications[0]->[1]->name, 'Bar' ); |
178 | } |
179 | |
180 | { |
181 | package Baz; |
182 | use Mouse; |
183 | |
184 | my $i = Baz->new; |
185 | local @applications; |
186 | My::Role::Special->meta->apply($i); |
187 | |
188 | ::is( @applications, 1 ); |
189 | ::is( $applications[0]->[0]->name, 'My::Role::Special' ); |
190 | ::ok( $applications[0]->[1]->is_anon_class ); |
191 | ::ok( $applications[0]->[1]->name->isa('Baz') ); |
192 | } |
193 | |
194 | { |
195 | package Corge; |
196 | use Mouse; |
197 | |
198 | local @applications; |
199 | with 'My::Role::Normal', 'My::Role::Special'; |
200 | |
201 | ::is( @applications, 2 ); |
202 | ::is( $applications[0]->[0]->name, 'My::Role::Normal' ); |
203 | ::is( $applications[0]->[1]->name, 'Corge' ); |
204 | ::is( $applications[1]->[0]->name, 'My::Role::Special' ); |
205 | ::is( $applications[1]->[1]->name, 'Corge' ); |
206 | } |
207 | |
208 | { |
209 | package Thud; |
210 | use Mouse::Role; |
211 | |
212 | local @applications; |
213 | with 'My::Role::Normal', 'My::Role::Special'; |
214 | |
215 | ::is( @applications, 2 ); |
216 | ::is( $applications[0]->[0]->name, 'My::Role::Normal' ); |
217 | ::is( $applications[0]->[1]->name, 'Thud' ); |
218 | ::is( $applications[1]->[0]->name, 'My::Role::Special' ); |
219 | ::is( $applications[1]->[1]->name, 'Thud' ); |
220 | } |
221 | |
222 | { |
223 | package Garply; |
224 | use Mouse; |
225 | |
226 | my $i = Garply->new; |
227 | local @applications; |
228 | Mouse::Meta::Role->combine( |
229 | [ 'My::Role::Normal' => undef ], |
230 | [ 'My::Role::Special' => undef ], |
231 | )->apply($i); |
232 | |
233 | ::is( @applications, 2 ); |
234 | ::is( $applications[0]->[0]->name, 'My::Role::Normal' ); |
235 | ::ok( $applications[0]->[1]->is_anon_class ); |
236 | ::ok( $applications[0]->[1]->name->isa('Garply') ); |
237 | ::is( $applications[1]->[0]->name, 'My::Role::Special' ); |
238 | ::ok( $applications[1]->[1]->is_anon_class ); |
239 | ::ok( $applications[1]->[1]->name->isa('Garply') ); |
240 | } |
241 | |
242 | done_testing; |