7 use lib "$FindBin::Bin/../lib";
9 use Test::More tests => 101;
10 use Catalyst::Test 'TestApp';
12 use Catalyst::Request;
13 use Catalyst::Request::Upload;
14 use HTTP::Body::OctetStream;
16 use HTTP::Headers::Util 'split_header_words';
17 use HTTP::Request::Common;
24 'http://localhost/dump/request/',
25 'Content-Type' => 'form-data',
27 'live_engine_request_cookies.t' =>
28 ["$FindBin::Bin/live_engine_request_cookies.t"],
29 'live_engine_request_headers.t' =>
30 ["$FindBin::Bin/live_engine_request_headers.t"],
31 'live_engine_request_uploads.t' =>
32 ["$FindBin::Bin/live_engine_request_uploads.t"],
36 ok( my $response = request($request), 'Request' );
37 ok( $response->is_success, 'Response Successful 2xx' );
38 is( $response->content_type, 'text/plain', 'Response Content-Type' );
41 qr/^bless\( .* 'Catalyst::Request' \)$/s,
42 'Content is a serialized Catalyst::Request'
48 eval '$creq = ' . $response->content,
49 'Unserialize Catalyst::Request'
53 isa_ok( $creq, 'Catalyst::Request' );
54 is( $creq->method, 'POST', 'Catalyst::Request method' );
55 is( $creq->content_type, 'multipart/form-data',
56 'Catalyst::Request Content-Type' );
57 is( $creq->content_length, $request->content_length,
58 'Catalyst::Request Content-Length' );
60 for my $part ( $request->parts ) {
62 my $disposition = $part->header('Content-Disposition');
63 my %parameters = @{ ( split_header_words($disposition) )[0] };
65 my $upload = $creq->uploads->{ $parameters{filename} };
67 isa_ok( $upload, 'Catalyst::Request::Upload' );
69 is( $upload->type, $part->content_type, 'Upload Content-Type' );
70 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
72 # make sure upload is accessible via legacy params->{$file}
73 is( $creq->parameters->{ $upload->filename },
74 $upload->filename, 'legacy param method ok' );
78 if ( $ENV{CATALYST_SERVER} ) {
79 skip 'Not testing for deleted file on remote server', 1;
81 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
90 'http://localhost/dump/request/',
91 'Content-Type' => 'multipart/form-data',
93 'testfile' => ["$FindBin::Bin/live_engine_request_cookies.t"],
94 'testfile' => ["$FindBin::Bin/live_engine_request_headers.t"],
95 'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
99 ok( my $response = request($request), 'Request' );
100 ok( $response->is_success, 'Response Successful 2xx' );
101 is( $response->content_type, 'text/plain', 'Response Content-Type' );
104 qr/^bless\( .* 'Catalyst::Request' \)$/s,
105 'Content is a serialized Catalyst::Request'
111 eval '$creq = ' . $response->content,
112 'Unserialize Catalyst::Request'
116 isa_ok( $creq, 'Catalyst::Request' );
117 is( $creq->method, 'POST', 'Catalyst::Request method' );
118 is( $creq->content_type, 'multipart/form-data',
119 'Catalyst::Request Content-Type' );
120 is( $creq->content_length, $request->content_length,
121 'Catalyst::Request Content-Length' );
123 my @parts = $request->parts;
125 for ( my $i = 0 ; $i < @parts ; $i++ ) {
127 my $part = $parts[$i];
128 my $disposition = $part->header('Content-Disposition');
129 my %parameters = @{ ( split_header_words($disposition) )[0] };
131 my $upload = $creq->uploads->{ $parameters{name} }->[$i];
133 isa_ok( $upload, 'Catalyst::Request::Upload' );
134 is( $upload->type, $part->content_type, 'Upload Content-Type' );
135 is( $upload->filename, $parameters{filename}, 'Upload filename' );
136 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
140 if ( $ENV{CATALYST_SERVER} ) {
141 skip 'Not testing for deleted file on remote server', 1;
143 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
152 'http://localhost/engine/request/uploads/slurp',
153 'Content-Type' => 'multipart/form-data',
155 [ 'slurp' => ["$FindBin::Bin/live_engine_request_uploads.t"], ]
158 ok( my $response = request($request), 'Request' );
159 ok( $response->is_success, 'Response Successful 2xx' );
160 is( $response->content_type, 'text/plain', 'Response Content-Type' );
161 is( $response->content, ( $request->parts )[0]->content, 'Content' );
163 # XXX: no way to test that temporary file for this test was deleted
168 'http://localhost/dump/request',
169 'Content-Type' => 'multipart/form-data',
171 [ 'file' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
174 # LWP will auto-correct Content-Length when using a remote server
177 if ( $ENV{CATALYST_SERVER} ) {
178 skip 'Using remote server', 2;
181 # Sending wrong Content-Length here and see if subequent requests fail
182 $request->header('Content-Length' => $request->header('Content-Length') + 1);
184 ok( my $response = request($request), 'Request' );
185 ok( !$response->is_success, 'Response Error' );
189 'http://localhost/dump/request',
190 'Content-Type' => 'multipart/form-data',
192 [ 'file1' => ["$FindBin::Bin/../catalyst_130pix.gif"],
193 'file2' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
196 ok( my $response = request($request), 'Request' );
197 ok( $response->is_success, 'Response Successful 2xx' );
198 is( $response->content_type, 'text/plain', 'Response Content-Type' );
199 like( $response->content, qr/file1 => bless/, 'Upload with name file1');
200 like( $response->content, qr/file2 => bless/, 'Upload with name file2');
206 eval '$creq = ' . $response->content,
207 'Unserialize Catalyst::Request'
211 for my $file ( $creq->upload ) {
212 my $upload = $creq->upload($file);
215 if ( $ENV{CATALYST_SERVER} ) {
216 skip 'Not testing for deleted file on remote server', 1;
218 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
227 'http://localhost/dump/request/',
228 'Content-Type' => 'form-data',
230 'testfile' => 'textfield value',
231 'testfile' => ["$FindBin::Bin/../catalyst_130pix.gif"],
235 ok( my $response = request($request), 'Request' );
236 ok( $response->is_success, 'Response Successful 2xx' );
237 is( $response->content_type, 'text/plain', 'Response Content-Type' );
240 qr/^bless\( .* 'Catalyst::Request' \)$/s,
241 'Content is a serialized Catalyst::Request'
247 eval '$creq = ' . $response->content,
248 'Unserialize Catalyst::Request'
252 isa_ok( $creq, 'Catalyst::Request' );
253 is( $creq->method, 'POST', 'Catalyst::Request method' );
254 is( $creq->content_type, 'multipart/form-data',
255 'Catalyst::Request Content-Type' );
256 is( $creq->content_length, $request->content_length,
257 'Catalyst::Request Content-Length' );
259 my $param = $creq->parameters->{testfile};
261 ok( @$param == 2, '2 values' );
262 is( $param->[0], 'textfield value', 'correct value' );
263 like( $param->[1], qr/\Qcatalyst_130pix.gif/, 'filename' );
265 for my $part ( $request->parts ) {
267 my $disposition = $part->header('Content-Disposition');
268 my %parameters = @{ ( split_header_words($disposition) )[0] };
270 next unless exists $parameters{filename};
272 my $upload = $creq->uploads->{ $parameters{name} };
274 isa_ok( $upload, 'Catalyst::Request::Upload' );
276 is( $upload->type, $part->content_type, 'Upload Content-Type' );
277 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
278 is( $upload->filename, 'catalyst_130pix.gif', 'Upload Filename' );
282 if ( $ENV{CATALYST_SERVER} ) {
283 skip 'Not testing for deleted file on remote server', 1;
285 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
290 # Test PUT request with application/octet-stream file gets deleted
296 'http://localhost/dump/body/',
297 'Content-Type' => 'application/octet-stream',
298 'Content' => 'foobarbaz',
299 'Content-Length' => 9,
302 ok( my $response = request($request), 'Request' );
303 ok( $response->is_success, 'Response Successful 2xx' );
304 is( $response->content_type, 'text/plain', 'Response Content-Type' );
307 qr/bless\( .* 'HTTP::Body::OctetStream' \)/s,
308 'Content is a serialized HTTP::Body::OctetStream'
314 eval '$body = ' . substr( $response->content, 8 ), # FIXME - substr not needed in other test cases?
315 'Unserialize HTTP::Body::OctetStream'
319 isa_ok( $body, 'HTTP::Body::OctetStream' );
320 isa_ok($body->body, 'File::Temp');
324 if ( $ENV{CATALYST_SERVER} ) {
325 skip 'Not testing for deleted file on remote server', 1;
327 ok( !-e $body->body->filename, 'Upload temp file was deleted' );
331 # test uploadtmp config var
334 if ( $ENV{CATALYST_SERVER} ) {
335 skip 'Not testing uploadtmp on remote server', 14;
340 my $dir = "$FindBin::Bin/";
341 local TestApp->config->{ uploadtmp } = $dir;
342 $dir = Path::Class::Dir->new( $dir );
345 'http://localhost/dump/request/',
346 'Content-Type' => 'multipart/form-data',
348 'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
352 ok( my $response = request($request), 'Request' );
353 ok( $response->is_success, 'Response Successful 2xx' );
354 is( $response->content_type, 'text/plain', 'Response Content-Type' );
357 qr/^bless\( .* 'Catalyst::Request' \)$/s,
358 'Content is a serialized Catalyst::Request'
364 eval '$creq = ' . $response->content,
365 'Unserialize Catalyst::Request'
369 isa_ok( $creq, 'Catalyst::Request' );
370 is( $creq->method, 'POST', 'Catalyst::Request method' );
371 is( $creq->content_type, 'multipart/form-data',
372 'Catalyst::Request Content-Type' );
373 is( $creq->content_length, $request->content_length,
374 'Catalyst::Request Content-Length' );
376 for my $part ( $request->parts ) {
378 my $disposition = $part->header('Content-Disposition');
379 my %parameters = @{ ( split_header_words($disposition) )[0] };
381 next unless exists $parameters{filename};
383 my $upload = $creq->{uploads}->{ $parameters{name} };
385 isa_ok( $upload, 'Catalyst::Request::Upload' );
387 is( $upload->type, $part->content_type, 'Upload Content-Type' );
388 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
390 like( $upload->tempname, qr{\Q$dir\E}, 'uploadtmp' );
392 ok( !-e $upload->tempname, 'Upload temp file was deleted' );