X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Flive_catalyst_test.t;h=2589ae5f997d9bc96d9f1e4ba95d873ff8a94bf9;hp=8831fe72c8f34a899fdcec057524fed8b258d54d;hb=8e322ed0b39da75b8d888025782f496ca781527f;hpb=598e59eef5ea4b20b42ddfba21fe339360c66c9a diff --git a/t/live_catalyst_test.t b/t/live_catalyst_test.t index 8831fe7..2589ae5 100644 --- a/t/live_catalyst_test.t +++ b/t/live_catalyst_test.t @@ -5,8 +5,9 @@ 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'); @@ -43,3 +44,16 @@ my $req = '/dump/request'; 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; +