8 use HTTP::Request::Common;
11 use lib "$FindBin::Bin/lib";
12 use Catalyst::Test 'TestContentNegotiation';
15 ok my $req = POST '/',
16 Content_Type => 'application/json',
17 Content => encode_json +{message=>'test'};
19 ok my $res = request $req;
21 is $res->content, 'is_json';
25 ok my $req = POST '/', [a=>1,b=>2];
26 ok my $res = request $req;
28 is $res->content, 'is_urlencoded';
32 ok my $path = TestContentNegotiation->path_to(qw/share file.txt/);
33 ok my $req = POST '/',
34 Content_Type => 'form-data',
35 Content => [a=>1, b=>2, file=>["$path"]];
37 ok my $res = request $req;
39 is $res->content, 'is_multipart';