From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 27 Aug 2010 16:30:34 +0000 (-0500)
Subject: another test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9488328b8551006f79cc8e3cf144209e39774dd1;p=gitmo%2FPackage-Stash-PP.git

another test
---

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");
     }
 }