8 use HTTP::Request::Common;
10 use lib "$FindBin::Bin/lib";
11 use Catalyst::Test 'TestFromPSGI';
14 ok my $response = request GET '/from_psgi_array',
15 'got welcome from a catalyst controller';
17 is $response->content, 'helloworldtoday',
18 'expected content body /from_psgi_array';
22 ok my $response = request GET '/from_psgi_code',
23 'got welcome from a catalyst controller';
25 is $response->content, 'helloworldtoday2',
26 'expected content body /from_psgi_code';
30 ok my $response = request GET '/from_psgi_code_itr',
31 'got welcome from a catalyst controller';
33 is $response->content, 'helloworldtoday3',
34 'expected content body /from_psgi_code_itr';
38 ok my($res, $c) = ctx_request(POST '/test_psgi_keys?a=1&b=2', [c=>3,d=>4]);
40 ok $c->req->env->{"psgix.input.buffered"}, "input is buffered";
41 ok $c->req->env->{"plack.request.http.body"};
42 ok my $body = $c->req->env->{"plack.request.body"};
43 ok my $query = $c->req->env->{"plack.request.query"};
44 ok my $merged = $c->req->env->{"plack.request.merged"};
46 is $body->get('c'), 3;
47 is $body->get('d'), 4;
48 is $query->get('a'), 1;
49 is $query->get('b'), 2;
50 is $merged->get('c'), 3;
51 is $merged->get('d'), 4;
52 is $merged->get('a'), 1;
53 is $merged->get('b'), 2;
55 is $c->req->parameters->get('c'), 3;
56 is $c->req->parameters->get('d'), 4;
57 is $c->req->parameters->get('a'), 1;
58 is $c->req->parameters->get('b'), 2;
60 is $c->req->body_parameters->get('c'), 3;
61 is $c->req->body_parameters->get('d'), 4;
62 is $c->req->query_parameters->get('a'), 1;
63 is $c->req->query_parameters->get('b'), 2;