diff options
Diffstat (limited to 't')
-rw-r--r-- | t/anon-basic.t | 5 | ||||
-rw-r--r-- | t/bare-anon-basic.t | 5 | ||||
-rw-r--r-- | t/basic.t | 5 | ||||
-rwxr-xr-x | t/edge-cases.t | 6 |
4 files changed, 18 insertions, 3 deletions
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", ); } @@ -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; |