diff options
-rw-r--r-- | t/edge-cases.t | 11 |
1 files changed, 11 insertions, 0 deletions
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; |