rename *_package_variable to *_package_symbol;

[gitmo/Class-MOP.git] / t / 012_package_variables.t

diff --git a/t/012_package_variables.t b/t/012_package_variables.t
index 6c98884..def46f5 100644 (file)
--- a/t/012_package_variables.t
+++ b/t/012_package_variables.t
@@ -16,14 +16,14 @@ BEGIN {
 }
 
 ok(!defined($Foo::{foo}), '... the %foo slot has not been created yet');
-ok(!Foo->meta->has_package_variable('%foo'), '... the meta agrees');
+ok(!Foo->meta->has_package_symbol('%foo'), '... the meta agrees');
 
 lives_ok {
-    Foo->meta->add_package_variable('%foo' => { one => 1 });
+    Foo->meta->add_package_symbol('%foo' => { one => 1 });
 } '... created %Foo::foo successfully';
 
 ok(defined($Foo::{foo}), '... the %foo slot was created successfully');
-ok(Foo->meta->has_package_variable('%foo'), '... the meta agrees');
+ok(Foo->meta->has_package_symbol('%foo'), '... the meta agrees');
 
 {
     no strict 'refs';
@@ -31,14 +31,14 @@ ok(Foo->meta->has_package_variable('%foo'), '... the meta agrees');
     is(${'Foo::foo'}{one}, 1, '... our %foo was initialized correctly');
 }
 
-my $foo = Foo->meta->get_package_variable('%foo');
+my $foo = Foo->meta->get_package_symbol('%foo');
 is_deeply({ one => 1 }, $foo, '... got the right package variable back');
 
 $foo->{two} = 2;
 
 {
     no strict 'refs';
-    is(\%{'Foo::foo'}, Foo->meta->get_package_variable('%foo'), '... our %foo is the same as the metas');
+    is(\%{'Foo::foo'}, Foo->meta->get_package_symbol('%foo'), '... our %foo is the same as the metas');
     
     ok(exists ${'Foo::foo'}{two}, '... our %foo was updated correctly');
     is(${'Foo::foo'}{two}, 2, '... our %foo was updated correctly');    
@@ -47,7 +47,7 @@ $foo->{two} = 2;
 ok(!defined($Foo::{bar}), '... the @bar slot has not been created yet');
 
 lives_ok {
-    Foo->meta->add_package_variable('@bar' => [ 1, 2, 3 ]);
+    Foo->meta->add_package_symbol('@bar' => [ 1, 2, 3 ]);
 } '... created @Foo::bar successfully';
 
 ok(defined($Foo::{bar}), '... the @bar slot was created successfully');
@@ -63,7 +63,7 @@ ok(defined($Foo::{bar}), '... the @bar slot was created successfully');
 ok(!defined($Foo::{baz}), '... the %baz slot has not been created yet');
 
 lives_ok {
-    Foo->meta->add_package_variable('%baz');
+    Foo->meta->add_package_symbol('%baz');
 } '... created %Foo::baz successfully';
 
 ok(defined($Foo::{baz}), '... the %baz slot was created successfully');
@@ -79,7 +79,7 @@ ok(defined($Foo::{baz}), '... the %baz slot was created successfully');
 ok(!defined($Foo::{bling}), '... the @bling slot has not been created yet');
 
 lives_ok {
-    Foo->meta->add_package_variable('@bling');
+    Foo->meta->add_package_symbol('@bling');
 } '... created @Foo::bling successfully';
 
 ok(defined($Foo::{bling}), '... the @bling slot was created successfully');
@@ -92,30 +92,30 @@ ok(defined($Foo::{bling}), '... the @bling slot was created successfully');
 }
 
 lives_ok {
-    Foo->meta->remove_package_variable('%foo');
+    Foo->meta->remove_package_symbol('%foo');
 } '... removed %Foo::foo successfully';
 
-ok(Foo->meta->has_package_variable('%foo'), '... the %foo slot was removed successfully');
+ok(Foo->meta->has_package_symbol('%foo'), '... the %foo slot was removed successfully');
 
 # check some errors
 
 dies_ok {
-    Foo->meta->add_package_variable('bar');
+    Foo->meta->add_package_symbol('bar');
 } '... no sigil for bar';
 
 dies_ok {
-    Foo->meta->remove_package_variable('bar');
+    Foo->meta->remove_package_symbol('bar');
 } '... no sigil for bar';
 
 dies_ok {
-    Foo->meta->get_package_variable('bar');
+    Foo->meta->get_package_symbol('bar');
 } '... no sigil for bar';
 
 dies_ok {
-    Foo->meta->has_package_variable('bar');
+    Foo->meta->has_package_symbol('bar');
 } '... no sigil for bar';
 
 
 #dies_ok {
-#    Foo->meta->get_package_variable('@.....bar');
+#    Foo->meta->get_package_symbol('@.....bar');
 #} '... could not fetch variable';