7 use lib "$FindBin::Bin/../lib";
9 use Test::More tests => 105;
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' );
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' );
200 like( $response->content, qr/file1 => bless/, 'Upload with name file1');
201 like( $response->content, qr/file2 => bless/, 'Upload with name file2');
207 eval '$creq = ' . $response->content,
208 'Unserialize Catalyst::Request'
212 for my $file ( $creq->upload ) {
213 my $upload = $creq->upload($file);
216 if ( $ENV{CATALYST_SERVER} ) {
217 skip 'Not testing for deleted file on remote server', 1;
219 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
228 'http://localhost/dump/request/',
229 'Content-Type' => 'form-data',
231 'testfile' => 'textfield value',
232 'testfile' => ["$FindBin::Bin/../catalyst_130pix.gif"],
236 ok( my $response = request($request), 'Request' );
237 ok( $response->is_success, 'Response Successful 2xx' );
238 is( $response->content_type, 'text/plain', 'Response Content-Type' );
241 qr/^bless\( .* 'Catalyst::Request' \)$/s,
242 'Content is a serialized Catalyst::Request'
248 eval '$creq = ' . $response->content,
249 'Unserialize Catalyst::Request'
253 isa_ok( $creq, 'Catalyst::Request' );
254 is( $creq->method, 'POST', 'Catalyst::Request method' );
255 is( $creq->content_type, 'multipart/form-data',
256 'Catalyst::Request Content-Type' );
257 is( $creq->content_length, $request->content_length,
258 'Catalyst::Request Content-Length' );
260 my $param = $creq->parameters->{testfile};
262 ok( @$param == 2, '2 values' );
263 is( $param->[0], 'textfield value', 'correct value' );
264 like( $param->[1], qr/\Qcatalyst_130pix.gif/, 'filename' );
266 for my $part ( $request->parts ) {
268 my $disposition = $part->header('Content-Disposition');
269 my %parameters = @{ ( split_header_words($disposition) )[0] };
271 next unless exists $parameters{filename};
273 my $upload = $creq->uploads->{ $parameters{name} };
275 isa_ok( $upload, 'Catalyst::Request::Upload' );
277 is( $upload->type, $part->content_type, 'Upload Content-Type' );
278 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
279 is( $upload->filename, 'catalyst_130pix.gif', 'Upload Filename' );
280 is( $upload->basename, 'catalyst_130pix.gif', 'Upload basename' );
284 if ( $ENV{CATALYST_SERVER} ) {
285 skip 'Not testing for deleted file on remote server', 1;
287 ok( !-e $upload->tempname, 'Upload temp file was deleted' );
292 # Test PUT request with application/octet-stream file gets deleted
298 'http://localhost/dump/body/',
299 'Content-Type' => 'application/octet-stream',
300 'Content' => 'foobarbaz',
301 'Content-Length' => 9,
304 ok( my $response = request($request), 'Request' );
305 ok( $response->is_success, 'Response Successful 2xx' );
306 is( $response->content_type, 'text/plain', 'Response Content-Type' );
309 qr/bless\( .* 'HTTP::Body::OctetStream' \)/s,
310 'Content is a serialized HTTP::Body::OctetStream'
316 eval '$body = ' . substr( $response->content, 8 ), # FIXME - substr not needed in other test cases?
317 'Unserialize HTTP::Body::OctetStream'
321 isa_ok( $body, 'HTTP::Body::OctetStream' );
322 isa_ok($body->body, 'File::Temp');
326 if ( $ENV{CATALYST_SERVER} ) {
327 skip 'Not testing for deleted file on remote server', 1;
329 ok( !-e $body->body->filename, 'Upload temp file was deleted' );
333 # test uploadtmp config var
336 if ( $ENV{CATALYST_SERVER} ) {
337 skip 'Not testing uploadtmp on remote server', 14;
342 my $dir = "$FindBin::Bin/";
343 local TestApp->config->{ uploadtmp } = $dir;
344 $dir = Path::Class::Dir->new( $dir );
347 'http://localhost/dump/request/',
348 'Content-Type' => 'multipart/form-data',
350 'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
354 ok( my $response = request($request), 'Request' );
355 ok( $response->is_success, 'Response Successful 2xx' );
356 is( $response->content_type, 'text/plain', 'Response Content-Type' );
359 qr/^bless\( .* 'Catalyst::Request' \)$/s,
360 'Content is a serialized Catalyst::Request'
366 eval '$creq = ' . $response->content,
367 'Unserialize Catalyst::Request'
371 isa_ok( $creq, 'Catalyst::Request' );
372 is( $creq->method, 'POST', 'Catalyst::Request method' );
373 is( $creq->content_type, 'multipart/form-data',
374 'Catalyst::Request Content-Type' );
375 is( $creq->content_length, $request->content_length,
376 'Catalyst::Request Content-Length' );
378 for my $part ( $request->parts ) {
380 my $disposition = $part->header('Content-Disposition');
381 my %parameters = @{ ( split_header_words($disposition) )[0] };
383 next unless exists $parameters{filename};
385 my $upload = $creq->{uploads}->{ $parameters{name} };
387 isa_ok( $upload, 'Catalyst::Request::Upload' );
389 is( $upload->type, $part->content_type, 'Upload Content-Type' );
390 is( $upload->size, length( $part->content ), 'Upload Content-Length' );
392 like( $upload->tempname, qr{\Q$dir\E}, 'uploadtmp' );
394 ok( !-e $upload->tempname, 'Upload temp file was deleted' );