7 use lib "$FindBin::Bin/../lib";
9 use Test::More tests => 105;
10 use Catalyst::Test 'TestApp';
11 use Scalar::Util qw/ blessed /;
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' );
137 is( $upload->basename, $parameters{filename}, 'Upload basename' );
141 if ( $ENV{CATALYST_SERVER} ) {
142 skip 'Not testing for deleted file on remote server', 1;
144 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
153 'http://localhost/engine/request/uploads/slurp',
154 'Content-Type' => 'multipart/form-data',
156 [ 'slurp' => ["$FindBin::Bin/live_engine_request_uploads.t"], ]
159 ok( my $response = request($request), 'Request' );
160 ok( $response->is_success, 'Response Successful 2xx' );
161 is( $response->content_type, 'text/plain', 'Response Content-Type' );
162 is( $response->content, ( $request->parts )[0]->content, 'Content' );
164 # XXX: no way to test that temporary file for this test was deleted
169 'http://localhost/dump/request',
170 'Content-Type' => 'multipart/form-data',
172 [ 'file' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
175 # LWP will auto-correct Content-Length when using a remote server
178 if ( $ENV{CATALYST_SERVER} ) {
179 skip 'Using remote server', 2;
182 # Sending wrong Content-Length here and see if subequent requests fail
183 $request->header('Content-Length' => $request->header('Content-Length') + 1);
185 ok( my $response = request($request), 'Request' );
186 ok( !$response->is_success, 'Response Error' );
190 'http://localhost/dump/request',
191 'Content-Type' => 'multipart/form-data',
193 [ 'file1' => ["$FindBin::Bin/../catalyst_130pix.gif"],
194 'file2' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
197 ok( my $response = request($request), 'Request' );
198 ok( $response->is_success, 'Response Successful 2xx' );
199 is( $response->content_type, 'text/plain', 'Response Content-Type' );
202 my $request = eval $response->content;
204 fail("Could not inflate response: $@ " . $response->content);
207 ok blessed($request->uploads->{file1}), 'Upload with name file1';
208 ok blessed($request->uploads->{file2}),'Upload with name file2';
215 eval '$creq = ' . $response->content,
216 'Unserialize Catalyst::Request'
220 for my $file ( $creq->upload ) {
221 my $upload = $creq->upload($file);
224 if ( $ENV{CATALYST_SERVER} ) {
225 skip 'Not testing for deleted file on remote server', 1;
227 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
236 'http://localhost/dump/request/',
237 'Content-Type' => 'form-data',
239 'testfile' => 'textfield value',
240 'testfile' => ["$FindBin::Bin/../catalyst_130pix.gif"],
244 ok( my $response = request($request), 'Request' );
245 ok( $response->is_success, 'Response Successful 2xx' );
246 is( $response->content_type, 'text/plain', 'Response Content-Type' );
249 qr/^bless\( .* 'Catalyst::Request' \)$/s,
250 'Content is a serialized Catalyst::Request'
256 eval '$creq = ' . $response->content,
257 'Unserialize Catalyst::Request'
261 isa_ok( $creq, 'Catalyst::Request' );
262 is( $creq->method, 'POST', 'Catalyst::Request method' );
263 is( $creq->content_type, 'multipart/form-data',
264 'Catalyst::Request Content-Type' );
265 is( $creq->content_length, $request->content_length,
266 'Catalyst::Request Content-Length' );
268 my $param = $creq->parameters->{testfile};
270 ok( @$param == 2, '2 values' );
271 is( $param->[0], 'textfield value', 'correct value' );
272 like( $param->[1], qr/\Qcatalyst_130pix.gif/, 'filename' );
274 for my $part ( $request->parts ) {
276 my $disposition = $part->header('Content-Disposition');
277 my %parameters = @{ ( split_header_words($disposition) )[0] };
279 next unless exists $parameters{filename};
281 my $upload = $creq->uploads->{ $parameters{name} };
283 isa_ok( $upload, 'Catalyst::Request::Upload' );
285 is( $upload->type, $part->content_type, 'Upload Content-Type' );
286 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
287 is( $upload->filename, 'catalyst_130pix.gif', 'Upload Filename' );
288 is( $upload->basename, 'catalyst_130pix.gif', 'Upload basename' );
292 if ( $ENV{CATALYST_SERVER} ) {
293 skip 'Not testing for deleted file on remote server', 1;
295 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
300 # Test PUT request with application/octet-stream file gets deleted
306 'http://localhost/dump/body/',
307 'Content-Type' => 'application/octet-stream',
308 'Content' => 'foobarbaz',
309 'Content-Length' => 9,
312 ok( my $response = request($request), 'Request' );
313 ok( $response->is_success, 'Response Successful 2xx' );
314 is( $response->content_type, 'text/plain', 'Response Content-Type' );
317 qr/bless\( .* 'HTTP::Body::OctetStream' \)/s,
318 'Content is a serialized HTTP::Body::OctetStream'
324 eval '$body = ' . substr( $response->content, 8 ), # FIXME - substr not needed in other test cases?
325 'Unserialize HTTP::Body::OctetStream'
329 isa_ok( $body, 'HTTP::Body::OctetStream' );
330 isa_ok($body->body, 'File::Temp');
334 if ( $ENV{CATALYST_SERVER} ) {
335 skip 'Not testing for deleted file on remote server', 1;
337 ok( !-e $body->body->filename, 'Upload temp file was deleted' );
341 # test uploadtmp config var
344 if ( $ENV{CATALYST_SERVER} ) {
345 skip 'Not testing uploadtmp on remote server', 14;
350 my $dir = "$FindBin::Bin/";
351 local TestApp->config->{ uploadtmp } = $dir;
352 $dir = Path::Class::Dir->new( $dir );
355 'http://localhost/dump/request/',
356 'Content-Type' => 'multipart/form-data',
358 'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
362 ok( my $response = request($request), 'Request' );
363 ok( $response->is_success, 'Response Successful 2xx' );
364 is( $response->content_type, 'text/plain', 'Response Content-Type' );
367 qr/^bless\( .* 'Catalyst::Request' \)$/s,
368 'Content is a serialized Catalyst::Request'
374 eval '$creq = ' . $response->content,
375 'Unserialize Catalyst::Request'
379 isa_ok( $creq, 'Catalyst::Request' );
380 is( $creq->method, 'POST', 'Catalyst::Request method' );
381 is( $creq->content_type, 'multipart/form-data',
382 'Catalyst::Request Content-Type' );
383 is( $creq->content_length, $request->content_length,
384 'Catalyst::Request Content-Length' );
386 for my $part ( $request->parts ) {
388 my $disposition = $part->header('Content-Disposition');
389 my %parameters = @{ ( split_header_words($disposition) )[0] };
391 next unless exists $parameters{filename};
393 my $upload = $creq->{uploads}->{ $parameters{name} };
395 isa_ok( $upload, 'Catalyst::Request::Upload' );
397 is( $upload->type, $part->content_type, 'Upload Content-Type' );
398 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
400 like( $upload->tempname, qr{\Q$dir\E}, 'uploadtmp' );
402 ok( !-e $upload->tempname, 'Upload temp file was deleted' );