X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_request_body_demand.t;h=cfbeb8f0deb67caaf08ae1d7e331c1d432d5b953;hb=HEAD;hp=b032f631ed504a531752149d412817746741246d;hpb=cb5b55f9dd90d240c4cb08980d12bb29a53431dc;p=catagits%2FCatalyst-Runtime.git diff --git a/t/aggregate/live_engine_request_body_demand.t b/t/aggregate/live_engine_request_body_demand.t index b032f63..cfbeb8f 100644 --- a/t/aggregate/live_engine_request_body_demand.t +++ b/t/aggregate/live_engine_request_body_demand.t @@ -1,5 +1,3 @@ -#!perl - use strict; use warnings; @@ -54,12 +52,11 @@ SKIP: 'Content-Type' => 'application/x-www-form-urlencoded', 'Content' => 'foo=bar&baz=quux' ); - + my $expected = { foo => 'bar', baz => 'quux', wibble => 'wobble' }; ok( my $response = request($request), 'Request' ); ok( $response->is_success, 'Response Successful 2xx' ); - { no strict 'refs'; ok( @@ -74,13 +71,13 @@ SKIP: # Test reading chunks of the request body using $c->read { my $creq; - + my $request = POST( 'http://localhost/body/read', 'Content-Type' => 'text/plain', 'Content' => 'x' x 105_000 ); - + my $expected = '10000|10000|10000|10000|10000|10000|10000|10000|10000|10000|5000'; ok( my $response = request($request), 'Request' );