From d259e270103f4add38933c54a77e01c3a7c7d832 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 3 Jan 2013 20:07:17 -0600
Subject: sync tests

---
 t/anon-basic.t      | 5 ++++-
 t/bare-anon-basic.t | 5 ++++-
 t/basic.t           | 5 ++++-
 t/edge-cases.t      | 6 ++++++
 4 files changed, 18 insertions(+), 3 deletions(-)

(limited to 't')

diff --git a/t/anon-basic.t b/t/anon-basic.t
index 2b7575c..32f5c9c 100644
--- a/t/anon-basic.t
+++ b/t/anon-basic.t
@@ -246,7 +246,10 @@ ok(defined(*{ $Foo->{foo} }{ARRAY}), '... the @foo slot has NOT been removed');
 
     is_deeply(
         $syms,
-        { zork => *{ $Foo->{zork} }{HASH} },
+        {
+            zork => *{ $Foo->{zork} }{HASH},
+            bare => *{ $Foo->{bare} }{HASH},
+        },
         "got the right ones",
     );
 }
diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t
index 64451aa..5bdb523 100644
--- a/t/bare-anon-basic.t
+++ b/t/bare-anon-basic.t
@@ -255,7 +255,10 @@ ok(defined(*{ $Foo->{foo} }{ARRAY}), '... the @foo slot has NOT been removed');
 
     is_deeply(
         $syms,
-        { zork => *{ $Foo->{zork} }{HASH} },
+        {
+            zork => *{ $Foo->{zork} }{HASH},
+            bare => *{ $Foo->{bare} }{HASH},
+        },
         "got the right ones",
     );
 }
diff --git a/t/basic.t b/t/basic.t
index b0f9936..286b707 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -273,7 +273,10 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f
 
     is_deeply(
         $syms,
-        { zork => *{ $Foo::{zork} }{HASH} },
+        {
+            zork => *{ $Foo::{zork} }{HASH},
+            bare => *{ $Foo::{bare} }{HASH},
+        },
         "got the right ones",
     );
 }
diff --git a/t/edge-cases.t b/t/edge-cases.t
index 49f56ed..58b819e 100755
--- a/t/edge-cases.t
+++ b/t/edge-cases.t
@@ -87,4 +87,10 @@ SKIP: {
     is($warning, undef, "no redefinition warnings");
 }
 
+{
+    my $stash = Package::Stash->new('Baz');
+    $stash->add_symbol('$baz', \undef);
+    ok($stash->has_symbol('$baz'));
+}
+
 done_testing;
-- 
cgit v1.2.3-54-g00ecf