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_json1';
25 ok my $req = POST '/', [a=>1,b=>2];
26 ok my $res = request $req;
28 is $res->content, 'is_urlencoded1';
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_multipart1';
43 ok my $req = POST '/under',
44 Content_Type => 'application/json',
45 Content => encode_json +{message=>'test'};
47 ok my $res = request $req;
49 is $res->content, 'is_json2';
53 ok my $req = POST '/under', [a=>1,b=>2];
54 ok my $res = request $req;
56 is $res->content, 'is_urlencoded2';
60 ok my $path = TestContentNegotiation->path_to(qw/share file.txt/);
61 ok my $req = POST '/under',
62 Content_Type => 'form-data',
63 Content => [a=>1, b=>2, file=>["$path"]];
65 ok my $res = request $req;
67 is $res->content, 'is_multipart2';
71 ok my $req = POST '/is_more_than_one_1',
72 Content => [a=>1, b=>2];
74 ok my $res = request $req;
76 is $res->content, 'formdata1';
80 ok my $req = POST '/is_more_than_one_2',
81 Content => [a=>1, b=>2];
83 ok my $res = request $req;
85 is $res->content, 'formdata2';
89 ok my $req = POST '/is_more_than_one_3',
90 Content => [a=>1, b=>2];
92 ok my $res = request $req;
94 is $res->content, 'formdata3';
98 ok my $path = TestContentNegotiation->path_to(qw/share file.txt/);
99 ok my $req = POST '/is_more_than_one_1',
100 Content_Type => 'form-data',
101 Content => [a=>1, b=>2, file=>["$path"]];
103 ok my $res = request $req;
105 is $res->content, 'formdata1';
109 ok my $path = TestContentNegotiation->path_to(qw/share file.txt/);
110 ok my $req = POST '/is_more_than_one_2',
111 Content_Type => 'form-data',
112 Content => [a=>1, b=>2, file=>["$path"]];
114 ok my $res = request $req;
116 is $res->content, 'formdata2';
120 ok my $path = TestContentNegotiation->path_to(qw/share file.txt/);
121 ok my $req = POST '/is_more_than_one_3',
122 Content_Type => 'form-data',
123 Content => [a=>1, b=>2, file=>["$path"]];
125 ok my $res = request $req;
127 is $res->content, 'formdata3';