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";
42 is $c->req->parameters->get('c'), 3;
43 is $c->req->parameters->get('d'), 4;
44 is $c->req->parameters->get('a'), 1;
45 is $c->req->parameters->get('b'), 2;
47 is $c->req->body_parameters->get('c'), 3;
48 is $c->req->body_parameters->get('d'), 4;
49 is $c->req->query_parameters->get('a'), 1;
50 is $c->req->query_parameters->get('b'), 2;