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=3176ed1ef7358b7563d5ab8962b462fe25a0ad37;hb=9488328b8551006f79cc8e3cf144209e39774dd1;hp=3e2a530fd140547f79fc341320805d70d4ebce0e;hpb=34b3fdd2f60e9abce14a19de07a2574db5ec4017;p=gitmo%2FPackage-Stash.git

diff --git a/t/04-get.t b/t/04-get.t
index 3e2a530..3176ed1 100644
--- a/t/04-get.t
+++ b/t/04-get.t
@@ -90,9 +90,12 @@ use Package::Stash;
         open $val, '<', \$str;
         is(readline($stash->get_package_symbol('FOO')), "foo",
            "got the right variable");
+        seek($stash->get_package_symbol('FOO'), 0, 0);
         {
             package Io;
             ::isa_ok(*FOO{IO}, 'IO');
+            ::is(<FOO>, "foo",
+                 "stash has the right variable");
         }
     }
 }
@@ -183,11 +186,14 @@ TODO: {
         open $val, '<', \$str;
         is(readline($stash->get_package_symbol('FOO')), "foo",
            "got the right variable");
+        seek($stash->get_package_symbol('FOO'), 0, 0);
     }
     {
         package Io::Vivify;
         no warnings 'once';
         ::isa_ok(*FOO{IO}, 'IO');
+        ::is(<FOO>, "foo",
+             "stash has the right variable");
     }
 }