X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_component_controller_action_local.t;h=852b11f73688104189f655d6c78a6ebf26f13b8c;hb=eebd1520470f767fdefdc03c1fe05427e5f182f9;hp=24fc2e4eee52e50d8083181d0d11d2324d7a873a;hpb=2c527b9130ee042eaa8e5996f565c75764d18117;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/live_component_controller_action_local.t b/t/aggregate/live_component_controller_action_local.t
index 24fc2e4..852b11f 100644
--- a/t/aggregate/live_component_controller_action_local.t
+++ b/t/aggregate/live_component_controller_action_local.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 
@@ -110,11 +108,11 @@ sub run_tests {
     }
 
     SKIP:
-    { 
+    {
         if ( $ENV{CATALYST_SERVER} ) {
             skip "tests for %2F on remote server", 6;
         }
-        
+
         ok(
             my $response =
               request('http://localhost/action/local/one/foo%2Fbar'),
@@ -129,11 +127,17 @@ sub run_tests {
             'TestApp::Controller::Action::Local',
             'Test Class'
         );
-        like(
-            $response->content,
-            qr~arguments => \[\s*'foo/bar'\s*\]~,
-            "Parameters don't split on %2F"
-        );
+        my $content = $response->content;
+        {
+            local $@;
+            my $request = eval $content;
+            if ($@) {
+                fail("Content cannot be unserialized: $@ $content");
+            }
+            else {
+                is_deeply $request->arguments, ['foo/bar'], "Parameters don't split on %2F";
+            }
+        }
     }
 
     {