X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F07-edge-cases.t;fp=t%2F07-edge-cases.t;h=e544c7ac3a75df606afd53570ad7564cd7a57dd4;hb=f75437398a7a18f7852b0151f7cb808dbeb06d0a;hp=85944d5727d7aedb282a86d7bb9cd9b6daec4c04;hpb=25c87f5c26ea1057a28acd82fc734aad9c4360dd;p=gitmo%2FPackage-Stash-PP.git

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;