Commit | Line | Data |
390f59b3 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | \r |
6 | my @tests = (\r |
7 | {\r |
8 | given => [ { a => 1 }, { b => 1 } ],\r |
9 | expects => { a => 1, b => 1 }\r |
10 | },\r |
11 | {\r |
12 | given => [ { a => 1 }, { a => { b => 1 } } ],\r |
13 | expects => { a => { b => 1 } }\r |
14 | },\r |
15 | {\r |
16 | given => [ { a => { b => 1 } }, { a => 1 } ],\r |
17 | expects => { a => 1 }\r |
18 | },\r |
19 | {\r |
20 | given => [ { a => 1 }, { a => [ 1 ] } ],\r |
21 | expects => { a => [ 1 ] }\r |
22 | },\r |
23 | {\r |
24 | given => [ { a => [ 1 ] }, { a => 1 } ],\r |
25 | expects => { a => 1 }\r |
26 | },\r |
27 | {\r |
28 | given => [ { a => { b => 1 } }, { a => { b => 2 } } ],\r |
29 | expects => { a => { b => 2 } }\r |
30 | },\r |
31 | {\r |
32 | given => [ { a => { b => 1 } }, { a => { c => 1 } } ],\r |
33 | expects => { a => { b => 1, c => 1 } }\r |
34 | },\r |
35 | );\r |
36 | |
37 | plan tests => scalar @tests + 1; |
38 | |
39 | use_ok('Catalyst'); |
40 | |
41 | for my $test ( @ tests ) {\r |
42 | is_deeply( Catalyst->merge_config_hashes( @{ $test->{ given } } ), $test->{ expects } );\r |
43 | }\r |