include test for failure mode

[catagits/Catalyst-Runtime.git] / t / unit_core_merge_config_hashes.t

diff --git a/t/unit_core_merge_config_hashes.t b/t/unit_core_merge_config_hashes.t
index 0ee7657..53f8be2 100644 (file)
--- a/t/unit_core_merge_config_hashes.t
+++ b/t/unit_core_merge_config_hashes.t
@@ -2,42 +2,42 @@ use strict;
 use warnings;
 
 use Test::More;
-\r
-my @tests = (\r
-    {\r
-        given   => [ { a => 1 }, { b => 1 } ],\r
-        expects => { a => 1, b => 1 }\r
-    },\r
-    {\r
-        given   => [ { a => 1 }, { a => { b => 1 } } ],\r
-        expects => { a => { b => 1 } }\r
-    },\r
-    {\r
-        given   => [ { a => { b => 1 } }, { a => 1 } ],\r
-        expects => { a => 1 }\r
-    },\r
-    {\r
-        given   => [ { a => 1 }, { a => [ 1 ] } ],\r
-        expects => { a => [ 1 ] }\r
-    },\r
-    {\r
-        given   => [ { a => [ 1 ] }, { a => 1 } ],\r
-        expects => { a => 1 }\r
-    },\r
-    {\r
-        given   => [ { a => { b => 1 } }, { a => { b => 2 } } ],\r
-        expects => { a => { b => 2 } }\r
-    },\r
-    {\r
-        given   => [ { a => { b => 1 } }, { a => { c => 1 } } ],\r
-        expects => { a => { b => 1, c => 1 } }\r
-    },\r
-);\r
+
+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 ) {\r
-    is_deeply( Catalyst->merge_config_hashes( @{ $test->{ given } } ), $test->{ expects } );\r
-}\r
+for my $test ( @ tests ) {
+    is_deeply( Catalyst->merge_config_hashes( @{ $test->{ given } } ), $test->{ expects } );
+}