1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
BEGIN { eval("use Test::Tester") }
use Test::Base;
BEGIN {
skip_all_unless_require('Test::Tester');
skip_all_unless_require('Test::Deep');
}
plan tests => 2;
my $a = {};
my $b = bless {}, 'Foo';
my $name = "is_deep works on non vs blessed hashes";
my ($dummy, @results) = Test::Tester::run_tests(
sub {
is_deep($a, $b, $name);
},
{
ok => 0,
name => $name,
},
);
is($results[0]->{ok}, 0, "Test did not match");
is($results[0]->{name}, $name, "Test name is correct");
|
