diff options
Diffstat (limited to 't/07-edge-cases.t')
| -rwxr-xr-x | t/07-edge-cases.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t index 85944d5..e544c7a 100755 --- a/t/07-edge-cases.t +++ b/t/07-edge-cases.t @@ -18,12 +18,16 @@ use Package::Stash; sub stub_with_proto (); our $SCALAR; + our $SCALAR_WITH_VALUE = 1; our @ARRAY; our %HASH; } my $stash = Package::Stash->new('Foo'); +{ local $TODO = "i think this is a perl bug (see comment in has_package_symbol)"; 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'); is_deeply( @@ -32,4 +36,9 @@ is_deeply( "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'); + done_testing; |