From c5e221f901796575c6beba3a887e92473577528f Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Sat, 13 Nov 2010 09:56:18 -0600 Subject: a few more tests --- t/20-leaks.t | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 't/20-leaks.t') 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'); } { -- cgit v1.2.3-54-g00ecf