+use strict;
+use warnings;
+
use FindBin;
use lib "$FindBin::Bin/lib";
use Catalyst::Test 'TestApp', {default_host => 'default.com'};
use Catalyst::Request;
+use HTTP::Request::Common;
-use Test::More tests => 10;
+use Test::More;
content_like('/',qr/root/,'content check');
action_ok('/','Action ok ok','normal action ok');
eval '$creq = ' . request($req, \%opts)->content;
is( $creq->uri->host, $opts{host}, 'target host is mutable via options hashref' );
}
+
+{
+ my $response = request( POST( '/bodyparams', { override => 'this' } ) )->content;
+ is($response, 'that', 'body param overridden');
+}
+
+{
+ my $response = request( POST( '/bodyparams/no_params' ) )->content;
+ is($response, 'HASH', 'empty body param is hashref');
+}
+
+done_testing;
+