From 1715486bd682c4bd12ac1995ef26db5a76fed5e8 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 29 Nov 2011 03:13:42 -0600 Subject: make sure this is testing the right thing --- t/basic.t | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 't/basic.t') diff --git a/t/basic.t b/t/basic.t index ded3d77..b0f9936 100644 --- a/t/basic.t +++ b/t/basic.t @@ -251,9 +251,13 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f } { - $foo_stash->add_symbol('%zork'); - ok(!$foo_stash->has_symbol('$zork'), + $foo_stash->add_symbol('%bare'); + ok(!$foo_stash->has_symbol('$bare'), "add_symbol with single argument doesn't vivify scalar slot"); +} + +{ + $foo_stash->add_symbol('%zork', {}); my $syms = $foo_stash->get_all_symbols('HASH'); @@ -267,10 +271,9 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f is($syms->{$symbol}, $foo_stash->get_symbol('%' . $symbol), '... got the right symbol'); } - no warnings 'once'; is_deeply( $syms, - { zork => \%Foo::zork }, + { zork => *{ $Foo::{zork} }{HASH} }, "got the right ones", ); } -- cgit v1.2.3-54-g00ecf