From 56a29840c0b7b0c4a09243ea05400c3df8ad0823 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 11 May 2010 22:02:16 -0500 Subject: more support for IO slots --- t/001-basic.t | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 't/001-basic.t') diff --git a/t/001-basic.t b/t/001-basic.t index a3ab29d..52ddfaa 100644 --- a/t/001-basic.t +++ b/t/001-basic.t @@ -225,22 +225,4 @@ is($foo_stash->get_package_symbol('@foo'), $ARRAY, '... got the right values for ok(defined(*{"Foo::foo"}{ARRAY}), '... the @foo slot has NOT been removed'); } -# check some errors - -dies_ok { - $foo_stash->add_package_symbol('bar'); -} '... no sigil for bar'; - -dies_ok { - $foo_stash->remove_package_symbol('bar'); -} '... no sigil for bar'; - -dies_ok { - $foo_stash->get_package_symbol('bar'); -} '... no sigil for bar'; - -dies_ok { - $foo_stash->has_package_symbol('bar'); -} '... no sigil for bar'; - done_testing; -- cgit v1.2.3-54-g00ecf