X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_merge_config_hashes.t;fp=t%2Funit_core_merge_config_hashes.t;h=0000000000000000000000000000000000000000;hp=53f8be2c0a89888a66a0468b099074313c7a3d35;hb=5d50f369bffa3625ca983b72fc8bc013c8a1e802;hpb=a2aac3b8867dea286d03eba07a6fbe2e237cf1ae diff --git a/t/unit_core_merge_config_hashes.t b/t/unit_core_merge_config_hashes.t deleted file mode 100644 index 53f8be2..0000000 --- a/t/unit_core_merge_config_hashes.t +++ /dev/null @@ -1,43 +0,0 @@ -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 + 1; - -use_ok('Catalyst'); - -for my $test ( @ tests ) { - is_deeply( Catalyst->merge_config_hashes( @{ $test->{ given } } ), $test->{ expects } ); -}