use Test::More;
use Test::Mojo;
use Data::Dumper;
use strict;
use warnings;

$Data::Dumper::Indent = $Data::Dumper::Sortkeys = 1;

my $t = Test::Mojo->new( 't::MojoTestServer' );
$t->get_ok('/')->status_is(200)->content_is('This is t::MojoTestServer');


{
    my $input = q{This is some content.
There is a lot of content like it.
This content is mine.};

    $t->post_ok('/body', $input )->status_is(200, '/body call');
    my $content = $t->tx->res->body;

    ok( $content eq Data::Dumper::Dumper($input),
	"received raw input back" );

    $t->post_ok('/body.php', $input)->status_is(200, '/body.php call');
    $content = $t->tx->res->body;

    ok( $content eq $input, 
	"received raw input back from \$HTTP_RAW_POST_DATA" );

    $t->post_ok('/body2.php', $input)->status_is(200, '/body2.php call');
    $content = $t->tx->res->body;
    ok( $content eq $input, "received raw input back from php://input" );
}

done_testing();