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=82485276d4f23e092eaef5f176c796e5311d834f;hp=326afc039ce366d94cb38ecbf4c65d827ba9f07f;hb=c5949002f09dbace88d6e2cb34fa9ce5f6bb5cad;hpb=0b9d5bf4918dbb1dbd7ba5f9db03dadb08f27566

diff --git a/t/live_catalyst_test.t b/t/live_catalyst_test.t
index 326afc0..8248527 100644
--- a/t/live_catalyst_test.t
+++ b/t/live_catalyst_test.t
@@ -1,7 +1,11 @@
+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;
 
@@ -41,5 +45,15 @@ my $req = '/dump/request';
     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;