diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-08-05 14:44:29 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-08-05 14:44:29 -0500 |
commit | 35ac42dfa898f4ed2124a52545f7f7c2d2bd0449 (patch) | |
tree | d6c30d3e47a0e153635a3dc6bf961827eafa81b5 /t/stash-deletion.t | |
parent | 5a4d63bd5f5f484ca406b6cf7f6c8d0fb9326a0a (diff) | |
download | package-stash-xs-35ac42dfa898f4ed2124a52545f7f7c2d2bd0449.tar.gz package-stash-xs-35ac42dfa898f4ed2124a52545f7f7c2d2bd0449.zip |
copy tests over
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; |