diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-01-04 03:17:46 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-01-04 03:17:46 -0600 |
commit | 9c88b95a5ffba3dbcf9a416f659ad39dd4016367 (patch) | |
tree | 5263302305c1485609f007514f825ed372d00ecd | |
parent | fccc858c772aa472d150d63514b4c46218238ca0 (diff) | |
download | package-stash-xs-9c88b95a5ffba3dbcf9a416f659ad39dd4016367.tar.gz package-stash-xs-9c88b95a5ffba3dbcf9a416f659ad39dd4016367.zip |
sync tests
-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; |