From cc3f1e42bdbd63dd3122eb94d519fc4b65fe4e21 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 13 Nov 2010 21:39:26 -0600
Subject: one more leak test, just in case

---
 t/20-leaks.t | 7 +++++++
 1 file changed, 7 insertions(+)

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;
-- 
cgit v1.2.3-54-g00ecf