From d259e270103f4add38933c54a77e01c3a7c7d832 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 3 Jan 2013 20:07:17 -0600 Subject: sync tests --- t/edge-cases.t | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 't/edge-cases.t') 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