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
28
29
30
31
32
33
34
35
36
|
#!perl -Tw
use warnings;
use strict;
use Test::More tests => 3;
use Carp::Assert::More;
use Test::Exception;
my $monolith = {
depth => 1,
width => 4,
height => 9,
};
my $shaq = {
firstname => 'Shaquille',
lastname => 'O\'Neal',
height => 85,
};
my @object_keys = qw( height width depth );
my @person_keys = qw( firstname lastname height );
lives_ok( sub { assert_all_keys_in( $monolith, \@object_keys ) }, 'Monolith object has valid keys' );
lives_ok( sub { assert_all_keys_in( $shaq, \@person_keys ) }, 'Shaq object has valid keys' );
throws_ok(
sub { assert_all_keys_in( $monolith, \@person_keys ) },
qr/Assertion.*failed!/,
'Monolith fails on person keys'
);
done_testing();
exit 0;
|
