diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-11-13 09:56:18 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-11-13 09:56:18 -0600 |
commit | c5e221f901796575c6beba3a887e92473577528f (patch) | |
tree | 96dd66c69382441b7e977e7085b4a95be96072b3 | |
parent | 6c3e69c69e12f548095b025515a48894d1a73f66 (diff) | |
download | package-stash-xs-c5e221f901796575c6beba3a887e92473577528f.tar.gz package-stash-xs-c5e221f901796575c6beba3a887e92473577528f.zip |
a few more tests
-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'); } { |