8 use HTTP::Request::Common;
11 use lib "$FindBin::Bin/lib";
12 use Catalyst::Test 'TestDataHandlers';
14 ok my($res, $c) = ctx_request('/');
17 ok my $message = 'helloworld';
18 ok my $post = encode_json +{message=>$message};
19 ok my $req = POST $c->uri_for_action('/test_json'),
20 Content_Type => 'application/json',
23 ok my $response = request $req, 'got a response from a catalyst controller';
24 is $response->content, $message, 'expected content body';
28 ok my $req = POST $c->uri_for_action('/test_nested_for'), [ 'nested.value' => 'expected' ];
29 ok my $response = request $req, 'got a response from a catalyst controller';
30 is $response->content, 'expected', 'expected content body';