X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04-get.t;fp=t%2F04-get.t;h=3c4ae4373383b8e1492108db463c9646e859a683;hb=41fc247afe43b3ca9bce931d224935a7bcf5a3bf;hp=84999385f366095b3d2aec3684284ec7024f51b8;hpb=7486ccf34361fccfb1599d244961ddbd3d8bc5a7;p=gitmo%2FPackage-Stash-PP.git

diff --git a/t/04-get.t b/t/04-get.t
index 8499938..3c4ae43 100644
--- a/t/04-get.t
+++ b/t/04-get.t
@@ -73,6 +73,31 @@ use Package::Stash;
 
 {
     BEGIN {
+        my $stash = Package::Stash->new('Code');
+        my $val = $stash->get_package_symbol('&foo');
+        is($val, undef, "got nothing yet");
+    }
+    {
+        no warnings 'void', 'once';
+        sub Code::foo { }
+    }
+    BEGIN {
+        my $stash = Package::Stash->new('Code');
+        my $val = $stash->get_package_symbol('&foo');
+        is(ref($val), 'CODE', "got something");
+        is(prototype($val), undef, "got the right variable");
+        &Scalar::Util::set_prototype($val, '&');
+        is($stash->get_package_symbol('&foo'), $val,
+           "got the right variable");
+        is(prototype($stash->get_package_symbol('&foo')), '&',
+           "got the right variable");
+        is(prototype(\&Code::foo), '&',
+           "stash has the right variable");
+    }
+}
+
+{
+    BEGIN {
         my $stash = Package::Stash->new('Io');
         my $val = $stash->get_package_symbol('FOO');
         is($val, undef, "got nothing yet");