diff options
Diffstat (limited to 't/07-edge-cases.t')
| -rwxr-xr-x | t/07-edge-cases.t | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index e5928a5..75df7ac 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -24,22 +24,22 @@ use Package::Stash; } my $stash = Package::Stash->new('Foo'); -ok($stash->has_package_symbol('$SCALAR'), '$SCALAR'); -ok($stash->has_package_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE'); -ok($stash->has_package_symbol('@ARRAY'), '@ARRAY'); -ok($stash->has_package_symbol('%HASH'), '%HASH'); +ok($stash->has_symbol('$SCALAR'), '$SCALAR'); +ok($stash->has_symbol('$SCALAR_WITH_VALUE'), '$SCALAR_WITH_VALUE'); +ok($stash->has_symbol('@ARRAY'), '@ARRAY'); +ok($stash->has_symbol('%HASH'), '%HASH'); is_deeply( - [sort $stash->list_all_package_symbols('CODE')], + [sort $stash->list_all_symbols('CODE')], [qw(BAR BAZ FOO QUUUX QUUX normal normal_with_proto stub stub_with_proto)], "can see all code symbols" ); -$stash->add_package_symbol('%added', {}); -ok(!$stash->has_package_symbol('$added'), '$added'); -ok(!$stash->has_package_symbol('@added'), '@added'); -ok($stash->has_package_symbol('%added'), '%added'); +$stash->add_symbol('%added', {}); +ok(!$stash->has_symbol('$added'), '$added'); +ok(!$stash->has_symbol('@added'), '@added'); +ok($stash->has_symbol('%added'), '%added'); -my $constant = $stash->get_package_symbol('&FOO'); +my $constant = $stash->get_symbol('&FOO'); is(ref($constant), 'CODE', "expanded a constant into a coderef"); done_testing; |