diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-16 05:17:45 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-16 05:17:45 -0600 |
| commit | 2b968103da31af72b52b161ed4e2033665479584 (patch) | |
| tree | 8bab4ef683a70721fa4b29ebdcfdadb745cb2cd2 | |
| parent | 9e60e8ff0381023d5e49388d32bd04748cb63ec9 (diff) | |
| download | package-stash-xs-2b968103da31af72b52b161ed4e2033665479584.tar.gz package-stash-xs-2b968103da31af72b52b161ed4e2033665479584.zip | |
update the test suite
| -rwxr-xr-x | t/07-edge-cases.t | 5 |
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; |