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=0a6dea2aae00229ef7d08447a8938f5dea063e61;hp=f5c506682f5563fe9523b6e2d5007bc4b5feb8ec;hb=b1e0cb6d4ded3d4223517d4adce6caef23112946;hpb=fa7bd552b7b517b2e043f1e6ac1c7f71a1b27440

diff --git a/t/aggregate/live_engine_request_body.t b/t/aggregate/live_engine_request_body.t
index f5c5066..0a6dea2 100644
--- a/t/aggregate/live_engine_request_body.t
+++ b/t/aggregate/live_engine_request_body.t
@@ -75,3 +75,19 @@ use HTTP::Request::Common;
     is( $creq->content_length, $request->content_length,
         'Catalyst::Request Content-Length' );
 }
+
+# 5.80 regression, see note in Catalyst::Plugin::Test::Plugin
+TODO: {
+    local $TODO = 'On demand request body parsing in prepare_action broken';
+
+    my $request = GET(
+        'http://localhost/have_req_body_in_prepare_action',
+        'Content-Type' => 'text/plain',
+        'Content'      => 'x' x 100_000
+    );
+
+    ok( my $response = request($request), 'Request' );
+    ok( $response->is_success, 'Response Successful 2xx' );
+    like( $response->content, qr/^[1-9]/, 'Has body' );
+}
+