diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-11-29 14:51:39 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-11-29 18:10:22 -0600 |
commit | c803b9210927bdf4a385070d386904a28e5f8540 (patch) | |
tree | 519a32d3315c207e5283940492d9c3c86d158304 /t/basic.t | |
parent | 3bc2194c3cd03e95aabe5b57001ae5e6e6c85393 (diff) | |
download | package-stash-xs-c803b9210927bdf4a385070d386904a28e5f8540.tar.gz package-stash-xs-c803b9210927bdf4a385070d386904a28e5f8540.zip |
sync test suite
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -251,7 +251,13 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f } { - $foo_stash->add_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'); @@ -265,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", ); } |