diff options
-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; |