preserve existing behavior here i guess

[gitmo/Package-Stash-PP.git] / t / 07-edge-cases.t

diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t
index 85944d5..e544c7a 100755 (executable)
--- 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;