X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Fmore-psgi-compat.t;h=979896341da6c50795d8dadf8f7692a6635c0abd;hp=da2a29296b5267a24e258a2047c24bed36df389f;hb=10f9ef88e69b504106ed9e5cefa1088ccaf3308d;hpb=88ba7793bb132b13ecea722fcc56313756a408b9

diff --git a/t/more-psgi-compat.t b/t/more-psgi-compat.t
index da2a292..9798963 100644
--- a/t/more-psgi-compat.t
+++ b/t/more-psgi-compat.t
@@ -1,5 +1,3 @@
-#!/usr/bin/env perl
-
 use warnings;
 use strict;
 
@@ -38,19 +36,16 @@ use Catalyst::Test 'TestFromPSGI';
   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;