1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/env perl
use warnings;
use strict;
use FindBin;
use Test::More;
use HTTP::Request::Common;
use JSON::MaybeXS;
use lib "$FindBin::Bin/lib";
use Catalyst::Test 'TestDataHandlers';
ok my($res, $c) = ctx_request('/');
{
ok my $message = 'helloworld';
ok my $post = encode_json +{message=>$message};
ok my $req = POST $c->uri_for_action('/test_json'),
Content_Type => 'application/json',
Content => $post;
ok my $response = request $req, 'got a response from a catalyst controller';
is $response->content, $message, 'expected content body';
}
{
ok my $req = POST $c->uri_for_action('/test_nested_for'), [ 'nested.value' => 'expected' ];
ok my $response = request $req, 'got a response from a catalyst controller';
is $response->content, 'expected', 'expected content body';
}
done_testing;
|
