summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2011-11-29 03:13:42 -0600
committerJesse Luehrs <doy@tozt.net>2011-11-29 03:13:42 -0600
commit1715486bd682c4bd12ac1995ef26db5a76fed5e8 (patch)
treef084b772dae7132af833ea688f66588a7d38036b
parentabe3605b9e63d97458ea495347501b5696ec2bc8 (diff)
downloadpackage-stash-1715486bd682c4bd12ac1995ef26db5a76fed5e8.tar.gz
package-stash-1715486bd682c4bd12ac1995ef26db5a76fed5e8.zip
make sure this is testing the right thing
-rw-r--r--t/basic.t11
-rw-r--r--t/impl-selection/basic-pp.t11
-rw-r--r--t/impl-selection/basic-xs.t11
3 files changed, 21 insertions, 12 deletions
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",
);
}
diff --git a/t/impl-selection/basic-pp.t b/t/impl-selection/basic-pp.t
index 086368e..5c80d09 100644
--- a/t/impl-selection/basic-pp.t
+++ b/t/impl-selection/basic-pp.t
@@ -255,9 +255,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');
@@ -271,10 +275,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",
);
}
diff --git a/t/impl-selection/basic-xs.t b/t/impl-selection/basic-xs.t
index 8a1b40b..cb46953 100644
--- a/t/impl-selection/basic-xs.t
+++ b/t/impl-selection/basic-xs.t
@@ -256,9 +256,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');
@@ -272,10 +276,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",
);
}