X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Faggregate%2Flive_engine_request_body.t;h=879ef14ac2cc73531bd9296f68dc47691bfa0c35;hp=954291c4c7cb967fee08e61ee70150ea39c4cef6;hb=4e93cdb6d9403718baff430bc1bdc3245aa5236f;hpb=a08216220afae9a832742a5154b96997fef11b26 diff --git a/t/aggregate/live_engine_request_body.t b/t/aggregate/live_engine_request_body.t index 954291c..879ef14 100644 --- a/t/aggregate/live_engine_request_body.t +++ b/t/aggregate/live_engine_request_body.t @@ -1,4 +1,3 @@ -#!perl use strict; use warnings; @@ -86,6 +85,10 @@ use HTTP::Request::Common; ); ok( my $response = request($request), 'Request' ); + my $server = $response->header('server') || ''; + local $TODO = 'lighttpd refuses GET with body' + if $server =~ /lighttpd/; + ok( $response->is_success, 'Response Successful 2xx' ); ok( $response->header('X-Have-Request-Body'), 'X-Have-Request-Body set' ); }