X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Flive_component_controller_action_default.t;h=95abd93198fb6c9e14c697976991e5b12dbc99ab;hp=51940d4ad5e0909ce1f1e60317c1f3b25c320cf4;hb=88e5a8b0c4d28e46b8ba6b6b9567063e57af9063;hpb=a0a66cb803a6ba6c0920c487e9c5d7fa148b7ec3

diff --git a/t/aggregate/live_component_controller_action_default.t b/t/aggregate/live_component_controller_action_default.t
index 51940d4..95abd93 100644
--- a/t/aggregate/live_component_controller_action_default.t
+++ b/t/aggregate/live_component_controller_action_default.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 
@@ -66,11 +64,11 @@ sub run_tests {
         ok(
             eval '$creq = ' . $response->content,
             'Unserialize Catalyst::Request'
-        );
+        ) or fail("EXCEPTION $@ DESERIALIZING " . $response->content);
         is_deeply( $creq->{arguments}, $expected, 'Arguments ok' );
     }
-    
-    
+
+
     # Test that /foo and /foo/ both do the same thing
     {
         my @expected = qw[
@@ -78,19 +76,19 @@ sub run_tests {
           TestApp::Controller::Action->default
           TestApp::Controller::Root->end
         ];
-        
+
         my $expected = join( ", ", @expected );
-        
+
         ok( my $response = request('http://localhost/action'), 'Request' );
         is( $response->header('X-Catalyst-Executed'),
-            $expected, 
+            $expected,
             'Executed actions for /action'
         );
-        
+
         ok( $response = request('http://localhost/action/'), 'Request' );
         is( $response->header('X-Catalyst-Executed'),
-            $expected, 
+            $expected,
             'Executed actions for /action/'
         );
-    }   
+    }
 }