6 use Test::More tests => 88;
11 use_ok('Class::MOP::Package');
17 sub meta { Class::MOP::Package->initialize('Foo') }
20 # ----------------------------------------------------------------------
21 ## tests adding a HASH
23 ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
24 ok(!Foo->meta->has_package_symbol('%foo'), '... the meta agrees');
27 Foo->meta->add_package_symbol('%foo' => { one => 1 });
28 } '... created %Foo::foo successfully';
30 # ... scalar should NOT be created here
32 ok(!Foo->meta->has_package_symbol('$foo'), '... SCALAR shouldnt have been created too');
33 ok(!Foo->meta->has_package_symbol('@foo'), '... ARRAY shouldnt have been created too');
34 ok(!Foo->meta->has_package_symbol('&foo'), '... CODE shouldnt have been created too');
36 ok(defined($Foo::{foo}), '... the %foo slot was created successfully');
37 ok(Foo->meta->has_package_symbol('%foo'), '... the meta agrees');
43 ok(exists ${'Foo::foo'}{one}, '... our %foo was initialized correctly');
44 is(${'Foo::foo'}{one}, 1, '... our %foo was initialized correctly');
47 my $foo = Foo->meta->get_package_symbol('%foo');
48 is_deeply({ one => 1 }, $foo, '... got the right package variable back');
50 # ... make sure changes propogate up
56 is(\%{'Foo::foo'}, Foo->meta->get_package_symbol('%foo'), '... our %foo is the same as the metas');
58 ok(exists ${'Foo::foo'}{two}, '... our %foo was updated correctly');
59 is(${'Foo::foo'}{two}, 2, '... our %foo was updated correctly');
62 # ----------------------------------------------------------------------
63 ## test adding an ARRAY
65 ok(!defined($Foo::{bar}), '... the @bar slot has not been created yet');
68 Foo->meta->add_package_symbol('@bar' => [ 1, 2, 3 ]);
69 } '... created @Foo::bar successfully';
71 ok(defined($Foo::{bar}), '... the @bar slot was created successfully');
72 ok(Foo->meta->has_package_symbol('@bar'), '... the meta agrees');
74 # ... why does this not work ...
76 ok(!Foo->meta->has_package_symbol('$bar'), '... SCALAR shouldnt have been created too');
77 ok(!Foo->meta->has_package_symbol('%bar'), '... HASH shouldnt have been created too');
78 ok(!Foo->meta->has_package_symbol('&bar'), '... CODE shouldnt have been created too');
80 # check the value itself
84 is(scalar @{'Foo::bar'}, 3, '... our @bar was initialized correctly');
85 is(${'Foo::bar'}[1], 2, '... our @bar was initialized correctly');
88 # ----------------------------------------------------------------------
89 ## test adding a SCALAR
91 ok(!defined($Foo::{baz}), '... the $baz slot has not been created yet');
94 Foo->meta->add_package_symbol('$baz' => 10);
95 } '... created $Foo::baz successfully';
97 ok(defined($Foo::{baz}), '... the $baz slot was created successfully');
98 ok(Foo->meta->has_package_symbol('$baz'), '... the meta agrees');
100 ok(!Foo->meta->has_package_symbol('@baz'), '... ARRAY shouldnt have been created too');
101 ok(!Foo->meta->has_package_symbol('%baz'), '... HASH shouldnt have been created too');
102 ok(!Foo->meta->has_package_symbol('&baz'), '... CODE shouldnt have been created too');
104 is(${Foo->meta->get_package_symbol('$baz')}, 10, '... got the right value back');
110 is(${'Foo::baz'}, 1, '... our $baz was assigned to correctly');
111 is(${Foo->meta->get_package_symbol('$baz')}, 1, '... the meta agrees');
114 # ----------------------------------------------------------------------
115 ## test adding a CODE
117 ok(!defined($Foo::{funk}), '... the &funk slot has not been created yet');
120 Foo->meta->add_package_symbol('&funk' => sub { "Foo::funk" });
121 } '... created &Foo::funk successfully';
123 ok(defined($Foo::{funk}), '... the &funk slot was created successfully');
124 ok(Foo->meta->has_package_symbol('&funk'), '... the meta agrees');
126 ok(!Foo->meta->has_package_symbol('$funk'), '... SCALAR shouldnt have been created too');
127 ok(!Foo->meta->has_package_symbol('@funk'), '... ARRAY shouldnt have been created too');
128 ok(!Foo->meta->has_package_symbol('%funk'), '... HASH shouldnt have been created too');
132 ok(defined &{'Foo::funk'}, '... our &funk exists');
135 is(Foo->funk(), 'Foo::funk', '... got the right value from the function');
137 # ----------------------------------------------------------------------
138 ## test multiple slots in the glob
140 my $ARRAY = [ 1, 2, 3 ];
141 my $CODE = sub { "Foo::foo" };
144 Foo->meta->add_package_symbol('@foo' => $ARRAY);
145 } '... created @Foo::foo successfully';
147 ok(Foo->meta->has_package_symbol('@foo'), '... the @foo slot was added successfully');
148 is(Foo->meta->get_package_symbol('@foo'), $ARRAY, '... got the right values for @Foo::foo');
151 Foo->meta->add_package_symbol('&foo' => $CODE);
152 } '... created &Foo::foo successfully';
154 ok(Foo->meta->has_package_symbol('&foo'), '... the meta agrees');
155 is(Foo->meta->get_package_symbol('&foo'), $CODE, '... got the right value for &Foo::foo');
158 Foo->meta->add_package_symbol('$foo' => 'Foo::foo');
159 } '... created $Foo::foo successfully';
161 ok(Foo->meta->has_package_symbol('$foo'), '... the meta agrees');
162 my $SCALAR = Foo->meta->get_package_symbol('$foo');
163 is($$SCALAR, 'Foo::foo', '... got the right scalar value back');
167 is(${'Foo::foo'}, 'Foo::foo', '... got the right value from the scalar');
171 Foo->meta->remove_package_symbol('%foo');
172 } '... removed %Foo::foo successfully';
174 ok(!Foo->meta->has_package_symbol('%foo'), '... the %foo slot was removed successfully');
175 ok(Foo->meta->has_package_symbol('@foo'), '... the @foo slot still exists');
176 ok(Foo->meta->has_package_symbol('&foo'), '... the &foo slot still exists');
177 ok(Foo->meta->has_package_symbol('$foo'), '... the $foo slot still exists');
179 is(Foo->meta->get_package_symbol('@foo'), $ARRAY, '... got the right values for @Foo::foo');
180 is(Foo->meta->get_package_symbol('&foo'), $CODE, '... got the right value for &Foo::foo');
181 is(Foo->meta->get_package_symbol('$foo'), $SCALAR, '... got the right value for $Foo::foo');
185 ok(!defined(*{"Foo::foo"}{HASH}), '... the %foo slot has been removed successfully');
186 ok(defined(*{"Foo::foo"}{ARRAY}), '... the @foo slot has NOT been removed');
187 ok(defined(*{"Foo::foo"}{CODE}), '... the &foo slot has NOT been removed');
188 ok(defined(${"Foo::foo"}), '... the $foo slot has NOT been removed');
192 Foo->meta->remove_package_symbol('&foo');
193 } '... removed &Foo::foo successfully';
195 ok(!Foo->meta->has_package_symbol('&foo'), '... the &foo slot no longer exists');
197 ok(Foo->meta->has_package_symbol('@foo'), '... the @foo slot still exists');
198 ok(Foo->meta->has_package_symbol('$foo'), '... the $foo slot still exists');
200 is(Foo->meta->get_package_symbol('@foo'), $ARRAY, '... got the right values for @Foo::foo');
201 is(Foo->meta->get_package_symbol('$foo'), $SCALAR, '... got the right value for $Foo::foo');
205 ok(!defined(*{"Foo::foo"}{HASH}), '... the %foo slot has been removed successfully');
206 ok(!defined(*{"Foo::foo"}{CODE}), '... the &foo slot has now been removed');
207 ok(defined(*{"Foo::foo"}{ARRAY}), '... the @foo slot has NOT been removed');
208 ok(defined(${"Foo::foo"}), '... the $foo slot has NOT been removed');
212 Foo->meta->remove_package_symbol('$foo');
213 } '... removed $Foo::foo successfully';
215 ok(!Foo->meta->has_package_symbol('$foo'), '... the $foo slot no longer exists');
217 ok(Foo->meta->has_package_symbol('@foo'), '... the @foo slot still exists');
219 is(Foo->meta->get_package_symbol('@foo'), $ARRAY, '... got the right values for @Foo::foo');
223 ok(!defined(*{"Foo::foo"}{HASH}), '... the %foo slot has been removed successfully');
224 ok(!defined(*{"Foo::foo"}{CODE}), '... the &foo slot has now been removed');
225 ok(!defined(${"Foo::foo"}), '... the $foo slot has now been removed');
226 ok(defined(*{"Foo::foo"}{ARRAY}), '... the @foo slot has NOT been removed');
233 Foo->meta->add_package_symbol('bar');
234 } '... no sigil for bar';
237 Foo->meta->remove_package_symbol('bar');
238 } '... no sigil for bar';
241 Foo->meta->get_package_symbol('bar');
242 } '... no sigil for bar';
245 Foo->meta->has_package_symbol('bar');
246 } '... no sigil for bar';