unmark +x and remove shebangs

[catagits/Catalyst-Runtime.git] / t / more-psgi-compat.t

diff --git a/t/more-psgi-compat.t b/t/more-psgi-compat.t
index 71dc283..9798963 100644 (file)
--- a/t/more-psgi-compat.t
+++ b/t/more-psgi-compat.t
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 use warnings;
 use strict;
 
@@ -34,4 +32,20 @@ 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";
+
+  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;