one more leak test, just in case

diff --git a/t/20-leaks.t b/t/20-leaks.t
index 7d3f5eb..0f46df5 100644 (file)
--- 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;