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=4e45fa288ea80bf2a4587dd2278c784286aafdc3;hp=aecdf11d24a247382312f29e85a27cf68bfb70a7;hpb=b44833b8bf2fe974c3c309febb251cab2514f494;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/live_engine_request_parameters.t b/t/aggregate/live_engine_request_parameters.t index aecdf11..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,15 +132,15 @@ 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' ); is( $creq->query_keywords, 'query string', 'Catalyst::Request query_keywords' ); - is( $creq->query_parameters, $query_parameters, 'Catalyst::Request query_parameters' ); - is( $creq->body_parameters, $body_parameters, 'Catalyst::Request body_parameters' ); + 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' );