t/live/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 => 49;
  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(
  22         'http://localhost/dump/request/',
  23         'Content-Type' => 'form-data',
  24         'Content'      => [
  25             'cookies.t' => ["$FindBin::Bin/cookies.t"],
  26             'headers.t' => ["$FindBin::Bin/headers.t"],
  27             'uploads.t' => ["$FindBin::Bin/uploads.t"],
  28         ]
  29     );
  30
  31     ok( my $response = request($request), 'Request' );
  32     ok( $response->is_success, 'Response Successful 2xx' );
  33     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  34     like(
  35         $response->content,
  36         qr/^bless\( .* 'Catalyst::Request' \)$/s,
  37         'Content is a serialized Catalyst::Request'
  38     );
  39
  40     {
  41         no strict 'refs';
  42         ok(
  43             eval '$creq = ' . $response->content,
  44             'Unserialize Catalyst::Request'
  45         );
  46     }
  47
  48     isa_ok( $creq, 'Catalyst::Request' );
  49     is( $creq->method, 'POST', 'Catalyst::Request method' );
  50     is( $creq->content_type, 'multipart/form-data',
  51         'Catalyst::Request Content-Type' );
  52     is( $creq->content_length, $request->content_length,
  53         'Catalyst::Request Content-Length' );
  54
  55     for my $part ( $request->parts ) {
  56
  57         my $disposition = $part->header('Content-Disposition');
  58         my %parameters  = @{ ( split_header_words($disposition) )[0] };
  59
  60         my $upload = $creq->{uploads}->{ $parameters{filename} };
  61
  62         isa_ok( $upload, 'Catalyst::Request::Upload' );
  63
  64         is( $upload->type, $part->content_type, 'Upload Content-Type' );
  65         is( $upload->size, length( $part->content ), 'Upload Content-Length' );
  66
  67         ok( ! -e $upload->tempname, 'Upload temp file was deleted' );
  68     }
  69 }
  70
  71 {
  72     my $creq;
  73
  74     my $request = POST(
  75         'http://localhost/dump/request/',
  76         'Content-Type' => 'multipart/form-data',
  77         'Content'      => [
  78             'testfile' => ["$FindBin::Bin/cookies.t"],
  79             'testfile' => ["$FindBin::Bin/headers.t"],
  80             'testfile' => ["$FindBin::Bin/uploads.t"],
  81         ]
  82     );
  83
  84     ok( my $response = request($request), 'Request' );
  85     ok( $response->is_success, 'Response Successful 2xx' );
  86     is( $response->content_type, 'text/plain', 'Response Content-Type' );
  87     like(
  88         $response->content,
  89         qr/^bless\( .* 'Catalyst::Request' \)$/s,
  90         'Content is a serialized Catalyst::Request'
  91     );
  92
  93     {
  94         no strict 'refs';
  95         ok(
  96             eval '$creq = ' . $response->content,
  97             'Unserialize Catalyst::Request'
  98         );
  99     }
 100
 101     isa_ok( $creq, 'Catalyst::Request' );
 102     is( $creq->method, 'POST', 'Catalyst::Request method' );
 103     is( $creq->content_type, 'multipart/form-data',
 104         'Catalyst::Request Content-Type' );
 105     is( $creq->content_length, $request->content_length,
 106         'Catalyst::Request Content-Length' );
 107
 108     my @parts = $request->parts;
 109
 110     for ( my $i = 0 ; $i < @parts ; $i++ ) {
 111
 112         my $part        = $parts[$i];
 113         my $disposition = $part->header('Content-Disposition');
 114         my %parameters  = @{ ( split_header_words($disposition) )[0] };
 115
 116         my $upload = $creq->{uploads}->{ $parameters{name} }->[$i];
 117
 118         isa_ok( $upload, 'Catalyst::Request::Upload' );
 119         is( $upload->type, $part->content_type, 'Upload Content-Type' );
 120         is( $upload->filename, $parameters{filename}, 'Upload filename' );
 121         is( $upload->size, length( $part->content ), 'Upload Content-Length' );
 122
 123         ok( ! -e $upload->tempname, 'Upload temp file was deleted' );
 124     }
 125 }
 126
 127 {
 128     my $creq;
 129
 130     my $request = POST(
 131         'http://localhost/engine/request/uploads/slurp',
 132         'Content-Type' => 'multipart/form-data',
 133         'Content'      => [ 'slurp' => ["$FindBin::Bin/uploads.t"], ]
 134     );
 135
 136     ok( my $response = request($request), 'Request' );
 137     ok( $response->is_success, 'Response Successful 2xx' );
 138     is( $response->content_type, 'text/plain', 'Response Content-Type' );
 139     is( $response->content, ( $request->parts )[0]->content, 'Content' );
 140 }