fix this broken test (oops again)
[gitmo/Moose.git] / t / 050_metaclasses / 060_reinitialize.t
1 #!/usr/bin/env perl
2 use strict;
3 use warnings;
4 use Test::More;
5 use Test::Moose;
6 use Test::Exception;
7
8 sub check_meta_sanity {
9     my ($meta, $class) = @_;
10     local $Test::Builder::Level = $Test::Builder::Level + 1;
11     isa_ok($meta, 'Moose::Meta::Class');
12     is($meta->name, $class);
13     ok($meta->has_method('foo'));
14     isa_ok($meta->get_method('foo'), 'Moose::Meta::Method');
15     ok($meta->has_attribute('bar'));
16     isa_ok($meta->get_attribute('bar'), 'Moose::Meta::Attribute');
17 }
18
19 {
20     package Foo;
21     use Moose;
22     sub foo {}
23     has bar => (is => 'ro');
24 }
25
26 check_meta_sanity(Foo->meta, 'Foo');
27
28 Moose::Meta::Class->reinitialize('Foo');
29 check_meta_sanity(Foo->meta, 'Foo');
30
31 {
32     package Foo::Role::Method;
33     use Moose::Role;
34
35     has foo => (is => 'rw');
36 }
37
38 {
39     package Foo::Role::Attribute;
40     use Moose::Role;
41     has oof => (is => 'rw');
42 }
43
44 Moose::Util::MetaRole::apply_metaroles(
45     for => 'Foo',
46     class_metaroles => {
47         method    => ['Foo::Role::Method'],
48         attribute => ['Foo::Role::Attribute'],
49     },
50 );
51 check_meta_sanity(Foo->meta, 'Foo');
52 does_ok(Foo->meta->get_method('foo'), 'Foo::Role::Method');
53 does_ok(Foo->meta->get_attribute('bar'), 'Foo::Role::Attribute');
54
55 Moose::Meta::Class->reinitialize('Foo');
56 check_meta_sanity(Foo->meta, 'Foo');
57 does_ok(Foo->meta->get_method('foo'), 'Foo::Role::Method');
58 does_ok(Foo->meta->get_attribute('bar'), 'Foo::Role::Attribute');
59
60 Foo->meta->get_method('foo')->foo('TEST');
61 Foo->meta->get_attribute('bar')->oof('TSET');
62 is(Foo->meta->get_method('foo')->foo, 'TEST');
63 is(Foo->meta->get_attribute('bar')->oof, 'TSET');
64 Moose::Meta::Class->reinitialize('Foo');
65 check_meta_sanity(Foo->meta, 'Foo');
66 is(Foo->meta->get_method('foo')->foo, 'TEST');
67 is(Foo->meta->get_attribute('bar')->oof, 'TSET');
68
69 {
70     package Bar::Role::Method;
71     use Moose::Role;
72 }
73
74 {
75     package Bar::Role::Attribute;
76     use Moose::Role;
77 }
78
79 {
80     package Bar;
81     use Moose;
82     Moose::Util::MetaRole::apply_metaroles(
83         for => 'Bar',
84         class_metaroles => {
85             method    => ['Bar::Role::Method'],
86             attribute => ['Bar::Role::Attribute'],
87         },
88     );
89     sub foo {}
90     has bar => (is => 'ro');
91 }
92
93 check_meta_sanity(Bar->meta, 'Bar');
94 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
95 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
96
97 Moose::Meta::Class->reinitialize('Bar');
98 check_meta_sanity(Bar->meta, 'Bar');
99 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
100 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
101 ok(!Moose::Util::does_role(Bar->meta->get_method('foo'), 'Foo::Role::Method'));
102 ok(!Moose::Util::does_role(Bar->meta->get_attribute('bar'), 'Foo::Role::Attribute'));
103
104 Moose::Util::MetaRole::apply_metaroles(
105     for => 'Bar',
106     class_metaroles => {
107         method    => ['Foo::Role::Method'],
108         attribute => ['Foo::Role::Attribute'],
109     },
110 );
111 check_meta_sanity(Bar->meta, 'Bar');
112 does_ok(Bar->meta->get_method('foo'), 'Bar::Role::Method');
113 does_ok(Bar->meta->get_attribute('bar'), 'Bar::Role::Attribute');
114 does_ok(Bar->meta->get_method('foo'), 'Foo::Role::Method');
115 does_ok(Bar->meta->get_attribute('bar'), 'Foo::Role::Attribute');
116
117 {
118     package Bar::Meta::Method;
119     use Moose;
120     BEGIN { extends 'Moose::Meta::Method' };
121 }
122
123 {
124     package Bar::Meta::Attribute;
125     use Moose;
126     BEGIN { extends 'Moose::Meta::Attribute' };
127 }
128
129 throws_ok {
130     Moose::Meta::Class->reinitialize(
131         'Bar',
132         method_metaclass    => 'Bar::Meta::Method',
133         attribute_metaclass => 'Bar::Meta::Attribute',
134     );
135 } qr/compatible/;
136
137 {
138     package Baz::Meta::Class;
139     use Moose;
140     BEGIN { extends 'Moose::Meta::Class' };
141
142     sub initialize {
143         my $self = shift;
144         return $self->SUPER::initialize(
145             @_,
146             method_metaclass    => 'Bar::Meta::Method',
147             attribute_metaclass => 'Bar::Meta::Attribute'
148         );
149     }
150 }
151
152 {
153     package Baz;
154     use Moose -metaclass => 'Baz::Meta::Class';
155     sub foo {}
156     has bar => (is => 'ro');
157 }
158
159 check_meta_sanity(Baz->meta, 'Baz');
160 isa_ok(Baz->meta->get_method('foo'), 'Bar::Meta::Method');
161 isa_ok(Baz->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
162 Moose::Meta::Class->reinitialize('Baz');
163 check_meta_sanity(Baz->meta, 'Baz');
164 isa_ok(Baz->meta->get_method('foo'), 'Bar::Meta::Method');
165 isa_ok(Baz->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
166
167 Moose::Util::MetaRole::apply_metaroles(
168     for => 'Baz',
169     class_metaroles => {
170         method    => ['Foo::Role::Method'],
171         attribute => ['Foo::Role::Attribute'],
172     },
173 );
174 check_meta_sanity(Baz->meta, 'Baz');
175 isa_ok(Baz->meta->get_method('foo'), 'Bar::Meta::Method');
176 isa_ok(Baz->meta->get_attribute('bar'), 'Bar::Meta::Attribute');
177 does_ok(Baz->meta->get_method('foo'), 'Foo::Role::Method');
178 does_ok(Baz->meta->get_attribute('bar'), 'Foo::Role::Attribute');
179
180 {
181     package Baz::Meta::Method;
182     use Moose;
183     extends 'Moose::Meta::Method';
184 }
185
186 {
187     package Baz::Meta::Attribute;
188     use Moose;
189     extends 'Moose::Meta::Attribute';
190 }
191
192 throws_ok {
193     Moose::Meta::Class->reinitialize(
194         'Baz',
195         method_metaclass    => 'Baz::Meta::Method',
196         attribute_metaclass => 'Baz::Meta::Attribute',
197     );
198 } qr/compatible/;
199
200 done_testing;