[Catalyst-commits] r8957 - Catalyst-Runtime/5.80/trunk/t/aggregate

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2008-12-27 17:25:07 +0000 (Sat, 27 Dec 2008)
New Revision: 8957

Modified:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_body.t
Log:
Fix another test, I'm not doing well today

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_body.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_body.t	2008-12-27 17:21:24 UTC (rev 8956)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_request_body.t	2008-12-27 17:25:07 UTC (rev 8957)
@@ -6,7 +6,7 @@
 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 @@
 }
 
 # 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 @@
 
     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' );
+    }
 }