diff options
Diffstat (limited to 't/stash-deletion.t')
-rw-r--r-- | t/stash-deletion.t | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/t/stash-deletion.t b/t/stash-deletion.t new file mode 100644 index 0000000..e331234 --- /dev/null +++ b/t/stash-deletion.t @@ -0,0 +1,24 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/lib'; +use Test::More; + +use Package::Stash; + +{ + package Gets::Deleted; + sub bar { } +} + +{ + my $delete = Package::Stash->new('Gets::Deleted'); + ok($delete->has_symbol('&bar'), "sees the method"); + { + no strict 'refs'; + delete ${'main::Gets::'}{'Deleted::'}; + } + ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted"); +} + +done_testing; |