diff options
| author | Jesse Luehrs <doy@tozt.net> | 2010-11-14 13:25:57 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2010-11-14 13:25:57 -0600 |
| commit | d2b55565cb3bbafd9923c9b67e021bcf09c7eaa7 (patch) | |
| tree | b8428b6303336e52a90eae5a5cfcea27df9afc5d /t/20-leaks.t | |
| parent | 60b395a1c2f7efdba256d7886ad86a0a9fb87e9d (diff) | |
| download | package-stash-xs-d2b55565cb3bbafd9923c9b67e021bcf09c7eaa7.tar.gz package-stash-xs-d2b55565cb3bbafd9923c9b67e021bcf09c7eaa7.zip | |
implement get_all_symbols
Diffstat (limited to 't/20-leaks.t')
| -rw-r--r-- | t/20-leaks.t | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/20-leaks.t b/t/20-leaks.t index 3954b15..d5dae8a 100644 --- a/t/20-leaks.t +++ b/t/20-leaks.t @@ -143,6 +143,22 @@ use Symbol; } "list_all_symbols doesn't leak"; } +{ + package Blah; + use constant 'baz'; +} + +{ + my $foo = Package::Stash->new('Foo'); + my $blah = Package::Stash->new('Blah'); + no_leaks_ok { + $foo->get_all_symbols; + $foo->get_all_symbols('SCALAR'); + $foo->get_all_symbols('CODE'); + $blah->get_all_symbols('CODE'); + } "list_all_symbols doesn't leak"; +} + # mimic CMOP::create_anon_class { local $TODO = $] < 5.010 ? "deleting stashes is inherently leaky on 5.8" |