diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-08-05 13:08:04 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-08-05 13:08:04 -0500 |
commit | adda4f43e39cff45cf4d443dd93216644fca3afa (patch) | |
tree | e05964d374b3a5a4e363f595f443eb46a058fe44 /t/io.t | |
parent | c3986e8ee5e47ef7e10896d991b53a3836591ef6 (diff) | |
download | package-stash-adda4f43e39cff45cf4d443dd93216644fca3afa.tar.gz package-stash-adda4f43e39cff45cf4d443dd93216644fca3afa.zip |
remove test numbers
Diffstat (limited to 't/io.t')
-rw-r--r-- | t/io.t | 51 |
1 files changed, 51 insertions, 0 deletions
@@ -0,0 +1,51 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use lib 't/lib'; +use Test::More; +use Test::Fatal; + +{ + 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_symbol('&foo'), "has &foo"); + ok($stash->has_symbol('foo'), "has foo"); + $stash->remove_symbol('&foo'); + ok(!$stash->has_symbol('&foo'), "has &foo"); + ok($stash->has_symbol('foo'), "has foo"); +} + +{ + my $stash = Package::Stash->new('Bar'); + ok($stash->has_symbol('&bar'), "has &bar"); + ok($stash->has_symbol('bar'), "has bar"); + $stash->remove_symbol('bar'); + ok($stash->has_symbol('&bar'), "has &bar"); + ok(!$stash->has_symbol('bar'), "has bar"); +} + +{ + my $stash = Package::Stash->new('Baz'); + is(exception { + $stash->add_symbol('baz', *Foo::foo{IO}); + }, undef, "can add an IO symbol"); + ok($stash->has_symbol('baz'), "has baz"); + is($stash->get_symbol('baz'), *Foo::foo{IO}, "got the right baz"); +} + +done_testing; |