diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-08-27 11:30:34 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-08-27 11:30:34 -0500 |
commit | 9488328b8551006f79cc8e3cf144209e39774dd1 (patch) | |
tree | f8ac062364fae9957c0a984556b0a1e36d3de6be | |
parent | 34b3fdd2f60e9abce14a19de07a2574db5ec4017 (diff) | |
download | package-stash-xs-9488328b8551006f79cc8e3cf144209e39774dd1.tar.gz package-stash-xs-9488328b8551006f79cc8e3cf144209e39774dd1.zip |
another test
-rw-r--r-- | t/04-get.t | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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"); } } |