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
37
38
39
40
41
42
43
|
use strict;
use warnings;
use Test::More;
my @tests = (
{
given => [ { a => 1 }, { b => 1 } ],
expects => { a => 1, b => 1 }
},
{
given => [ { a => 1 }, { a => { b => 1 } } ],
expects => { a => { b => 1 } }
},
{
given => [ { a => { b => 1 } }, { a => 1 } ],
expects => { a => 1 }
},
{
given => [ { a => 1 }, { a => [ 1 ] } ],
expects => { a => [ 1 ] }
},
{
given => [ { a => [ 1 ] }, { a => 1 } ],
expects => { a => 1 }
},
{
given => [ { a => { b => 1 } }, { a => { b => 2 } } ],
expects => { a => { b => 2 } }
},
{
given => [ { a => { b => 1 } }, { a => { c => 1 } } ],
expects => { a => { b => 1, c => 1 } }
},
);
plan tests => scalar @tests;
use Catalyst::Component;
for my $test ( @ tests ) {
is_deeply( Catalyst::Component->merge_config_hashes( @{ $test->{ given } } ), $test->{ expects } );
}
|
