From aa9c54a31b72a6cc7bdce3efcc27dd010e593564 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Fri, 5 Aug 2011 14:41:11 -0500 Subject: refactor tests a bit --- t/edge-cases.t | 34 ---------------------------------- 1 file changed, 34 deletions(-) (limited to 't/edge-cases.t') diff --git a/t/edge-cases.t b/t/edge-cases.t index 6bed48e..7c82626 100755 --- a/t/edge-cases.t +++ b/t/edge-cases.t @@ -53,38 +53,4 @@ is(ref($constant), 'CODE', "expanded a constant into a coderef"); is(ref($stash->get_symbol('$glob')), '', "nothing yet"); is(ref($stash->get_or_add_symbol('$glob')), 'SCALAR', "got an empty scalar"); -my $Bar = Package::Stash->new('Bar'); -my $foo = 3; -$foo =~ s/3/4/; -my $bar = 4.5; -$bar =~ s/4/5/; - -is(exception { $Bar->add_symbol('$foo', \$foo) }, undef, - "can add PVIV values"); -is(exception { $Bar->add_symbol('$bar', \$bar) }, undef, - "can add PVNV values"); -is(exception { bless \$bar, 'Foo'; $Bar->add_symbol('$bar2', $bar) }, undef, - "can add PVMG values"); -is(exception { $Bar->add_symbol('$baz', qr/foo/) }, undef, - "can add regex values"); -is(exception { undef $bar; $Bar->add_symbol('$quux', \$bar) }, undef, - "can add undef values that aren't NULL"); - -use_ok('CompileTime'); - -{ - package Gets::Deleted; - sub bar { } -} - -{ - my $delete = Package::Stash->new('Gets::Deleted'); - ok($delete->has_symbol('&bar'), "sees the method"); - { - no strict 'refs'; - delete ${'main::Gets::'}{'Deleted::'}; - } - ok(!$delete->has_symbol('&bar'), "method goes away when stash is deleted"); -} - done_testing; -- cgit v1.2.3-54-g00ecf