diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-11 20:09:58 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-11 20:09:58 -0600 |
| commit | f75437398a7a18f7852b0151f7cb808dbeb06d0a (patch) | |
| tree | 123bfbe91697dc7b1aba63ce4233c3aebd6f1f2d /t | |
| parent | 25c87f5c26ea1057a28acd82fc734aad9c4360dd (diff) | |
| download | package-stash-f75437398a7a18f7852b0151f7cb808dbeb06d0a.tar.gz package-stash-f75437398a7a18f7852b0151f7cb808dbeb06d0a.zip | |
preserve existing behavior here i guess
Diffstat (limited to '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; |