Index: lang/perl/HTTP-Engine/branches/moose/t/10_request_builder.t
===================================================================
--- lang/perl/HTTP-Engine/branches/moose/t/10_request_builder.t (revision 11085)
+++ lang/perl/HTTP-Engine/branches/moose/t/10_request_builder.t (revision 11088)
@@ -22,5 +22,5 @@
     my $c = HTTP::Engine::Context->new(env => $block->env);
 
-    tie *STDIN, 'IO::Scalar', $block->input;
+    tie *STDIN, 'IO::Scalar', \( $block->body );
     $builder->prepare($c);
     untie *STDIN;
@@ -43,2 +43,15 @@
 is $c->req->address, '127.0.0.1';
 
+===
+--- env
+REMOTE_ADDR:    127.0.0.1
+SERVER_PORT:    80
+QUERY_STRING:   ''
+REQUEST_METHOD: 'POST'
+HTTP_HOST: localhost
+HTTP_CONTENT_LENGTH: 7
+HTTP_CONTENT_TYPE: application/x-www-form-urlencoded
+--- body: a=b&c=d
+--- test
+is_deeply $c->req->body_params, {a => 'b', c => 'd'};
+