diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 21:39:26 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 21:39:26 -0600 |
commit | cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21 (patch) | |
tree | dde92b3a48b35f571c3eb38786e0eef138d9dbce | |
parent | d551a208f521a8e93c52f93977d6246d85b91de1 (diff) | |
download | package-stash-xs-cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21.tar.gz package-stash-xs-cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21.zip |
one more leak test, just in case
-rw-r--r-- | t/20-leaks.t | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/20-leaks.t b/t/20-leaks.t index 7d3f5eb..0f46df5 100644 --- a/t/20-leaks.t +++ b/t/20-leaks.t @@ -153,4 +153,11 @@ use Symbol; } "get_symbol doesn't leak during glob expansion"; } +{ + my $foo = Package::Stash->new('Foo'); + no_leaks_ok { + eval { $foo->get_or_add_symbol('&blorg') }; + } "doesn't leak on errors"; +} + done_testing; |