From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sat, 27 Dec 2008 17:25:07 +0000 (+0000)
Subject: Fix another test, I'm not doing well today
X-Git-Tag: 5.8000_05~69
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=6e3de58fc7d0a4302fe9791c36346839ad91fb12

Fix another test, I'm not doing well today
---

diff --git a/t/aggregate/live_engine_request_body.t b/t/aggregate/live_engine_request_body.t
index 0a6dea2..1897af3 100644
--- a/t/aggregate/live_engine_request_body.t
+++ b/t/aggregate/live_engine_request_body.t
@@ -6,7 +6,7 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
-use Test::More tests => 18;
+use Test::More tests => 21;
 use Catalyst::Test 'TestApp';
 
 use Catalyst::Request;
@@ -77,9 +77,7 @@ use HTTP::Request::Common;
 }
 
 # 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',
@@ -88,6 +86,9 @@ TODO: {
 
     ok( my $response = request($request), 'Request' );
     ok( $response->is_success, 'Response Successful 2xx' );
-    like( $response->content, qr/^[1-9]/, 'Has body' );
+    TODO: {
+        local $TODO = 'On demand request body parsing in prepare_action broken';
+        like( $response->content, qr/^[1-9]/, 'Has body' );
+    }
 }