diff options
author | Jesse Luehrs <doy@tozt.net> | 2010-06-15 19:11:16 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2010-06-15 19:11:16 -0500 |
commit | 988beb418b12b8cc4821055d79361f807c98aa36 (patch) | |
tree | 91f81ac9ba0f1accdd2740ee67ee2fb0d51ed11b /t/003-io.t | |
parent | a9daba9ef318d1fd94851773d6c3f061ce5dae04 (diff) | |
download | package-stash-988beb418b12b8cc4821055d79361f807c98aa36.tar.gz package-stash-988beb418b12b8cc4821055d79361f807c98aa36.zip |
updated dzil stuff
Diffstat (limited to 't/003-io.t')
-rw-r--r-- | t/003-io.t | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/t/003-io.t b/t/003-io.t deleted file mode 100644 index 43a7dd8..0000000 --- a/t/003-io.t +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/bin/env perl -use strict; -use warnings; -use Test::More; -use Test::Exception; - -{ - package Foo; - open *foo, "<", $0; - - sub foo { } -} - -{ - package Bar; - open *bar, "<", $0; - - sub bar { } -} - -use Package::Stash; - -{ - my $stash = Package::Stash->new('Foo'); - ok($stash->has_package_symbol('&foo'), "has &foo"); - ok($stash->has_package_symbol('foo'), "has foo"); - $stash->remove_package_symbol('&foo'); - ok(!$stash->has_package_symbol('&foo'), "has &foo"); - ok($stash->has_package_symbol('foo'), "has foo"); -} - -{ - my $stash = Package::Stash->new('Bar'); - ok($stash->has_package_symbol('&bar'), "has &bar"); - ok($stash->has_package_symbol('bar'), "has bar"); - $stash->remove_package_symbol('bar'); - ok($stash->has_package_symbol('&bar'), "has &bar"); - ok(!$stash->has_package_symbol('bar'), "has bar"); -} - -{ - my $stash = Package::Stash->new('Baz'); - lives_ok { - $stash->add_package_symbol('baz', *Foo::foo{IO}); - } "can add an IO symbol"; - ok($stash->has_package_symbol('baz'), "has baz"); - is($stash->get_package_symbol('baz'), *Foo::foo{IO}, "got the right baz"); -} - -done_testing; |