summaryrefslogtreecommitdiffstats
path: root/t/003-io.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2010-06-15 19:11:16 -0500
committerJesse Luehrs <doy@tozt.net>2010-06-15 19:11:16 -0500
commit988beb418b12b8cc4821055d79361f807c98aa36 (patch)
tree91f81ac9ba0f1accdd2740ee67ee2fb0d51ed11b /t/003-io.t
parenta9daba9ef318d1fd94851773d6c3f061ce5dae04 (diff)
downloadpackage-stash-988beb418b12b8cc4821055d79361f807c98aa36.tar.gz
package-stash-988beb418b12b8cc4821055d79361f807c98aa36.zip
updated dzil stuff
Diffstat (limited to 't/003-io.t')
-rw-r--r--t/003-io.t50
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;