From f75437398a7a18f7852b0151f7cb808dbeb06d0a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 11 Nov 2010 20:09:58 -0600
Subject: preserve existing behavior here i guess

---
 t/07-edge-cases.t | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 't/07-edge-cases.t')

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;
-- 
cgit v1.2.3-54-g00ecf