t/unit_core_merge_config_hashes.t

   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