t/engine/request/uploads.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use FindBin;
   7 use lib "$FindBin::Bin/../../lib";
   8
   9 use Test::More tests => 18;
  10 use Catalyst::Test 'TestApp';
  11
  12 use Catalyst::Request;
  13 use Catalyst::Request::Upload;
  14 use HTTP::Headers;
  15 use HTTP::Headers::Util 'split_header_words';
  16 use HTTP::Request::Common;
  17
  18 {
  19     my $creq;
  20
  21     my $request = POST( 'http://localhost/dump/request/',
  22         'Content-Type' => 'multipart/form-data',
  23         'Content'      => [
  24             'cookies.t' => [ "$FindBin::Bin/cookies.t" ],
  25             'headers.t' => [ "$FindBin::Bin/headers.t" ],
  26             'uploads.t' => [ "$FindBin::Bin/uploads.t" ],
  27          ]
  28     );
  29
  30     ok( my $response = request($request), 'Request' );
  31     ok( $response->is_success, 'Response Successful 2xx' );
  32     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  33     like( $response->content, qr/^bless\( .* 'Catalyst::Request' \)$/s, 'Content is a serialized Catalyst::Request' );
  34
  35     {
  36         no strict 'refs';
  37         ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
  38     }
  39
  40     isa_ok( $creq, 'Catalyst::Request' );
  41     is( $creq->method, 'POST', 'Catalyst::Request method' );
  42     is( $creq->content_type, 'multipart/form-data', 'Catalyst::Request Content-Type' );
  43     is( $creq->content_length, $request->content_length, 'Catalyst::Request Content-Length' );
  44
  45     for my $part ( $request->parts ) {
  46
  47         my $disposition = $part->header('Content-Disposition');
  48         my %parameters  = @{ ( split_header_words($disposition) )[0] };
  49
  50         my $upload = $creq->uploads->{ $parameters{filename} };
  51
  52         isa_ok( $upload, 'Catalyst::Request::Upload' );
  53
  54         is( $upload->type, $part->content_type, 'Upload Content-Type' );
  55         is( $upload->size, length( $part->content ), 'Upload Content-Length' );
  56     }
  57 }