X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fmore-psgi-compat.t;h=d7c61015c58e139f4285b6ac66a5f7591307b231;hb=32d4a56f5768c84faa69b3c6a7edf959f5fe0d17;hp=71dc283921bab5190e99bb4823b9887161dce62a;hpb=4491e0cc34b2be2fc485ad01fbbf51b61fed4c22;p=catagits%2FCatalyst-Runtime.git

diff --git a/t/more-psgi-compat.t b/t/more-psgi-compat.t
index 71dc283..d7c6101 100644
--- a/t/more-psgi-compat.t
+++ b/t/more-psgi-compat.t
@@ -34,4 +34,33 @@ use Catalyst::Test 'TestFromPSGI';
     'expected content body /from_psgi_code_itr';
 }
 
+{
+  ok my($res, $c) = ctx_request(POST '/test_psgi_keys?a=1&b=2', [c=>3,d=>4]);
+
+  ok $c->req->env->{"psgix.input.buffered"}, "input is buffered";
+  ok $c->req->env->{"plack.request.http.body"};
+  ok my $body = $c->req->env->{"plack.request.body"};
+  ok my $query = $c->req->env->{"plack.request.query"};
+  ok my $merged = $c->req->env->{"plack.request.merged"};
+
+  is $body->get('c'), 3;
+  is $body->get('d'), 4;
+  is $query->get('a'), 1;
+  is $query->get('b'), 2;
+  is $merged->get('c'), 3;
+  is $merged->get('d'), 4;
+  is $merged->get('a'), 1;
+  is $merged->get('b'), 2;
+
+  is $c->req->parameters->get('c'), 3;
+  is $c->req->parameters->get('d'), 4;
+  is $c->req->parameters->get('a'), 1;
+  is $c->req->parameters->get('b'), 2;
+
+  is $c->req->body_parameters->get('c'), 3;
+  is $c->req->body_parameters->get('d'), 4;
+  is $c->req->query_parameters->get('a'), 1;
+  is $c->req->query_parameters->get('b'), 2;
+}
+
 done_testing;