use strict;
use warnings;
use Test::More tests => 2;
use t::Utils;
use HTTP::Engine::Compat;
use HTTP::Request;

# prepare
my $body = 'foo=bar';
my $req = HTTP::Request->new(
    'POST',
    '/',
    HTTP::Headers->new(
        'content-length' => length($body),
        'Content-Type' => 'application/x-www-form-urlencoded',
    ),
    $body,
);

# do test
run_engine {
    my $c = shift;
    is $c->req->raw_body, 'foo=bar';
    is_deeply $c->req->body_params, { foo => 'bar' };
} $req;