summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-11-16 05:16:44 -0600
committerJesse Luehrs <doy@tozt.net>2010-11-16 05:16:44 -0600
commit4723417a0e4c38ba9bf00a95d70e6872535c4d4c (patch)
treed478eb20787f8be991c6cfa1b70901cb6ae385c8 /t
parent079d40f534bbc0751bd6e2c621edfd367d3943f8 (diff)
downloadpackage-stash-4723417a0e4c38ba9bf00a95d70e6872535c4d4c.tar.gz
package-stash-4723417a0e4c38ba9bf00a95d70e6872535c4d4c.zip
fix another edge case
Diffstat (limited to 't')
-rwxr-xr-xt/07-edge-cases.t5
1 files changed, 5 insertions, 0 deletions
diff --git a/t/07-edge-cases.t b/t/07-edge-cases.t
index feec31e..cf75847 100755
--- a/t/07-edge-cases.t
+++ b/t/07-edge-cases.t
@@ -47,4 +47,9 @@ ok($stash->has_symbol('%added'), '%added');
my $constant = $stash->get_symbol('&FOO');
is(ref($constant), 'CODE', "expanded a constant into a coderef");
+# ensure get doesn't prevent subsequent vivification (not sure what the deal
+# was here)
+is(ref($stash->get_symbol('$glob')), '', "nothing yet");
+is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar");
+
done_testing;