From 9c88b95a5ffba3dbcf9a416f659ad39dd4016367 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 4 Jan 2013 03:17:46 -0600 Subject: sync tests --- t/edge-cases.t | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/t/edge-cases.t b/t/edge-cases.t index 4e851c3..58c5dc8 100644 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -99,4 +99,15 @@ SKIP: { ok($stash->has_symbol('$baz'), "immortal scalars are also visible"); } +{ + { + package HasISA::Super; + package HasISA; + our @ISA = ('HasISA::Super'); + } + ok(HasISA->isa('HasISA::Super')); + my $stash = Package::Stash->new('HasISA'); + is_deeply([$stash->list_all_symbols('SCALAR')], []); +} + done_testing; -- cgit v1.2.3