From 9488328b8551006f79cc8e3cf144209e39774dd1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 27 Aug 2010 11:30:34 -0500
Subject: another test

---
 t/04-get.t | 6 ++++++
 1 file changed, 6 insertions(+)

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");
     }
 }
 
-- 
cgit v1.2.3-54-g00ecf