diff options
Diffstat (limited to 't/20-leaks.t')
-rw-r--r-- | t/20-leaks.t | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/t/20-leaks.t b/t/20-leaks.t index 124e49e..4e48bd3 100644 --- a/t/20-leaks.t +++ b/t/20-leaks.t @@ -119,14 +119,16 @@ use Symbol; no_leaks_ok { $foo->get_or_add_package_symbol('io'); $foo->get_or_add_package_symbol('%hash'); - # and why are these not leaks either? - $foo->get_or_add_package_symbol('@array_init'); + my @super = ('Exporter'); + @{$foo->get_or_add_package_symbol('@ISA')} = @super; $foo->get_or_add_package_symbol('$glob'); } "get_or_add_package_symbol doesn't leak"; ok($foo->has_package_symbol('$glob')); is(ref($foo->get_package_symbol('$glob')), 'SCALAR'); - ok($foo->has_package_symbol('@array_init')); - is(ref($foo->get_package_symbol('@array_init')), 'ARRAY'); + ok($foo->has_package_symbol('@ISA')); + is(ref($foo->get_package_symbol('@ISA')), 'ARRAY'); + is_deeply($foo->get_package_symbol('@ISA'), ['Exporter']); + isa_ok('Foo', 'Exporter'); } { |