X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_request_parameters.t;h=581fc0365b40d9759dc81e0b532abf4a7e084694;hb=4e93cdb6d9403718baff430bc1bdc3245aa5236f;hp=e4991263968c3414a8e05f9335056cf3bd8179d6;hpb=5f1c280839c7864938a8ddcd4c268d0c2719652e;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/live_engine_request_parameters.t b/t/aggregate/live_engine_request_parameters.t index e499126..581fc03 100644 --- a/t/aggregate/live_engine_request_parameters.t +++ b/t/aggregate/live_engine_request_parameters.t @@ -4,7 +4,7 @@ use warnings; use FindBin; use lib "$FindBin::Bin/../lib"; -use Test::More tests => 54; +use Test::More tests => 56; use Catalyst::Test 'TestApp'; use Catalyst::Request; @@ -114,7 +114,7 @@ use HTTP::Request::Common; # raw query string support { my $creq; - + my $body_parameters = { a => 1, blank => '', @@ -132,7 +132,7 @@ use HTTP::Request::Common; 'Content' => $body_parameters, 'Content-Type' => 'application/x-www-form-urlencoded' ); - + ok( my $response = request($request), 'Request' ); ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' ); is( $creq->uri->query, 'query+string', 'Catalyst::Request POST query_string' ); @@ -140,7 +140,7 @@ use HTTP::Request::Common; is_deeply( $creq->query_parameters, $query_parameters, 'Catalyst::Request query_parameters' ); is_deeply( $creq->body_parameters, $body_parameters, 'Catalyst::Request body_parameters' ); is_deeply( $creq->parameters, $parameters, 'Catalyst::Request parameters' ); - + ok( $response = request('http://localhost/dump/request/a/b?x=1&y=1&z=1'), 'Request' ); ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' ); is( $creq->uri->query, 'x=1&y=1&z=1', 'Catalyst::Request GET query_string' );