summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/anon-basic.t5
-rw-r--r--t/bare-anon-basic.t5
-rw-r--r--t/basic.t5
-rw-r--r--t/impl-selection/basic-pp.t5
-rw-r--r--t/impl-selection/basic-xs.t5
5 files changed, 20 insertions, 5 deletions
diff --git a/t/anon-basic.t b/t/anon-basic.t
index 2b7575c..32f5c9c 100644
--- a/t/anon-basic.t
+++ b/t/anon-basic.t
@@ -246,7 +246,10 @@ ok(defined(*{ $Foo->{foo} }{ARRAY}), '... the @foo slot has NOT been removed');
is_deeply(
$syms,
- { zork => *{ $Foo->{zork} }{HASH} },
+ {
+ zork => *{ $Foo->{zork} }{HASH},
+ bare => *{ $Foo->{bare} }{HASH},
+ },
"got the right ones",
);
}
diff --git a/t/bare-anon-basic.t b/t/bare-anon-basic.t
index 64451aa..5bdb523 100644
--- a/t/bare-anon-basic.t
+++ b/t/bare-anon-basic.t
@@ -255,7 +255,10 @@ ok(defined(*{ $Foo->{foo} }{ARRAY}), '... the @foo slot has NOT been removed');
is_deeply(
$syms,
- { zork => *{ $Foo->{zork} }{HASH} },
+ {
+ zork => *{ $Foo->{zork} }{HASH},
+ bare => *{ $Foo->{bare} }{HASH},
+ },
"got the right ones",
);
}
diff --git a/t/basic.t b/t/basic.t
index b0f9936..286b707 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -273,7 +273,10 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f
is_deeply(
$syms,
- { zork => *{ $Foo::{zork} }{HASH} },
+ {
+ zork => *{ $Foo::{zork} }{HASH},
+ bare => *{ $Foo::{bare} }{HASH},
+ },
"got the right ones",
);
}
diff --git a/t/impl-selection/basic-pp.t b/t/impl-selection/basic-pp.t
index 5c80d09..58ff523 100644
--- a/t/impl-selection/basic-pp.t
+++ b/t/impl-selection/basic-pp.t
@@ -277,7 +277,10 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f
is_deeply(
$syms,
- { zork => *{ $Foo::{zork} }{HASH} },
+ {
+ zork => *{ $Foo::{zork} }{HASH},
+ bare => *{ $Foo::{bare} }{HASH},
+ },
"got the right ones",
);
}
diff --git a/t/impl-selection/basic-xs.t b/t/impl-selection/basic-xs.t
index cb46953..8612906 100644
--- a/t/impl-selection/basic-xs.t
+++ b/t/impl-selection/basic-xs.t
@@ -278,7 +278,10 @@ is($foo_stash->get_symbol('@foo'), $ARRAY, '... got the right values for @Foo::f
is_deeply(
$syms,
- { zork => *{ $Foo::{zork} }{HASH} },
+ {
+ zork => *{ $Foo::{zork} }{HASH},
+ bare => *{ $Foo::{bare} }{HASH},
+ },
"got the right ones",
);
}