X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_request_escaped_path.t;h=0512e6a069f735643d61507eee480d7109fe74f7;hb=4d4e5de8d391ea3351093be5a1bed02b3d29c32c;hp=b101365e2a88d145345b81c7d869ec598018b2c7;hpb=7665bd7e110461782bd6162daff57641fa773505;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/aggregate/live_engine_request_escaped_path.t b/t/aggregate/live_engine_request_escaped_path.t
index b101365..0512e6a 100644
--- a/t/aggregate/live_engine_request_escaped_path.t
+++ b/t/aggregate/live_engine_request_escaped_path.t
@@ -1,5 +1,4 @@
-#!perl
-
+#!/usr/bin/evn perl
 use strict;
 use warnings;
 
@@ -47,7 +46,7 @@ Index: lib/Catalyst/Engine/CGI.pm
     my $request = Catalyst::Utils::request( 'http://localhost/args/params/one/two' );
     my $cgi     = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
 
-    TestApp->handle_request;
+    TestApp->handle_request( env => \%ENV );
 
     ok( my $response = $cgi->restore->response );
     ok( $response->is_success, 'Response Successful 2xx' );
@@ -55,8 +54,6 @@ Index: lib/Catalyst/Engine/CGI.pm
 }
 
 # test that request with URL-escaped code works.
-TODO: {
-    local $TODO = 'Actions should match when path parts are url encoded';
     my $request = Catalyst::Utils::request( 'http://localhost/args/param%73/one/two' );
     my $cgi     = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
 
@@ -65,9 +62,11 @@ TODO: {
     $ENV{PATH_INFO} = '/args/param%73/one/two';
 
 
-    TestApp->handle_request;
+    TestApp->handle_request( env => \%ENV );
 
     ok( my $response = $cgi->restore->response );
+TODO: {
+    local $TODO = 'Actions should match when path parts are url encoded';
     ok( $response->is_success, 'Response Successful 2xx' );
     is( $response->content, 'onetwo' );
 }