diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 20:02:52 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 20:04:15 -0600 |
commit | 15c104e23985b21347465208bbf0aef53db3d105 (patch) | |
tree | 45b23ab6d49520877bb6f74f60c680b8ec6497a2 /t/03-io.t | |
parent | dfabcbae2bf40ad18f242f632fc20de8800cf0cf (diff) | |
download | package-stash-xs-15c104e23985b21347465208bbf0aef53db3d105.tar.gz package-stash-xs-15c104e23985b21347465208bbf0aef53db3d105.zip |
drop package_ from method names
Diffstat (limited to 't/03-io.t')
-rw-r--r-- | t/03-io.t | 26 |
1 files changed, 13 insertions, 13 deletions
@@ -22,29 +22,29 @@ use Package::Stash; { my $stash = Package::Stash->new('Foo'); - ok($stash->has_package_symbol('&foo'), "has &foo"); - ok($stash->has_package_symbol('foo'), "has foo"); - $stash->remove_package_symbol('&foo'); - ok(!$stash->has_package_symbol('&foo'), "has &foo"); - ok($stash->has_package_symbol('foo'), "has foo"); + ok($stash->has_symbol('&foo'), "has &foo"); + ok($stash->has_symbol('foo'), "has foo"); + $stash->remove_symbol('&foo'); + ok(!$stash->has_symbol('&foo'), "has &foo"); + ok($stash->has_symbol('foo'), "has foo"); } { my $stash = Package::Stash->new('Bar'); - ok($stash->has_package_symbol('&bar'), "has &bar"); - ok($stash->has_package_symbol('bar'), "has bar"); - $stash->remove_package_symbol('bar'); - ok($stash->has_package_symbol('&bar'), "has &bar"); - ok(!$stash->has_package_symbol('bar'), "has bar"); + ok($stash->has_symbol('&bar'), "has &bar"); + ok($stash->has_symbol('bar'), "has bar"); + $stash->remove_symbol('bar'); + ok($stash->has_symbol('&bar'), "has &bar"); + ok(!$stash->has_symbol('bar'), "has bar"); } { my $stash = Package::Stash->new('Baz'); is(exception { - $stash->add_package_symbol('baz', *Foo::foo{IO}); + $stash->add_symbol('baz', *Foo::foo{IO}); }, undef, "can add an IO symbol"); - ok($stash->has_package_symbol('baz'), "has baz"); - is($stash->get_package_symbol('baz'), *Foo::foo{IO}, "got the right baz"); + ok($stash->has_symbol('baz'), "has baz"); + is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz"); } done_testing; |