summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/edge-cases.t11
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;