From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 14 Nov 2010 03:39:26 +0000 (-0600)
Subject: one more leak test, just in case
X-Git-Tag: 0.14~21
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21;p=gitmo%2FPackage-Stash-XS.git

one more leak test, just in case
---

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;