From: Graham Knop <haarg@haarg.org>
Date: Sun, 26 Jul 2020 19:09:34 +0000 (+0200)
Subject: allow GET with body test to fail on lighttpd
X-Git-Tag: v5.90_127~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=eebd1520470f767fdefdc03c1fe05427e5f182f9

allow GET with body test to fail on lighttpd

lighttpd refuses all GET requests with a body.  Avoid failing tests
under these conditions.
---

diff --git a/t/aggregate/live_engine_request_body.t b/t/aggregate/live_engine_request_body.t
index 0abe175..879ef14 100644
--- a/t/aggregate/live_engine_request_body.t
+++ b/t/aggregate/live_engine_request_body.t
@@ -85,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' );
 }