From 9cf1cab181cf771e28b272186fd0faa9877cc2ad Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 3 Jan 2013 19:31:18 -0600 Subject: no, really make sure i'm testing the right thing (why is this failing) --- t/anon-basic.t | 5 ++++- t/bare-anon-basic.t | 5 ++++- t/basic.t | 5 ++++- t/impl-selection/basic-pp.t | 5 ++++- t/impl-selection/basic-xs.t | 5 ++++- 5 files changed, 20 insertions(+), 5 deletions(-) (limited to 't') 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", ); } -- cgit v1.2.3-54-g00ecf