use strict;
use warnings;
use Test::More;
use HTTP::Message::PSGI qw(req_to_psgi);
use HTTP::Request;

my $content = "{'foo':'bar'}";
my $req = HTTP::Request->new(POST => "http://localhost/post", [ "Content-Type", "application/json" ], $content);

my $env = req_to_psgi $req;

is $env->{CONTENT_LENGTH}, 13;
$env->{"psgi.input"}->read(my $buf, 13);

is $buf, $content;

done_testing;