[catagits/Catalyst-Runtime.git] / t / aggregate / live_engine_request_uploads.t

#!perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Test::More tests => 105;
use Catalyst::Test 'TestApp';

use Catalyst::Request;
use Catalyst::Request::Upload;
use HTTP::Body::OctetStream;
use HTTP::Headers;
use HTTP::Headers::Util 'split_header_words';
use HTTP::Request::Common;
use Path::Class::Dir;

{
    my $creq;

    my $request = POST(
        'http://localhost/dump/request/',
        'Content-Type' => 'form-data',
        'Content'      => [
            'live_engine_request_cookies.t' =>
              ["$FindBin::Bin/live_engine_request_cookies.t"],
            'live_engine_request_headers.t' =>
              ["$FindBin::Bin/live_engine_request_headers.t"],
            'live_engine_request_uploads.t' =>
              ["$FindBin::Bin/live_engine_request_uploads.t"],
        ]
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    like(
        $response->content,
        qr/^bless\( .* 'Catalyst::Request' \)$/s,
        'Content is a serialized Catalyst::Request'
    );

    {
        no strict 'refs';
        ok(
            eval '$creq = ' . $response->content,
            'Unserialize Catalyst::Request'
        );
    }

    isa_ok( $creq, 'Catalyst::Request' );
    is( $creq->method, 'POST', 'Catalyst::Request method' );
    is( $creq->content_type, 'multipart/form-data',
        'Catalyst::Request Content-Type' );
    is( $creq->content_length, $request->content_length,
        'Catalyst::Request Content-Length' );

    for my $part ( $request->parts ) {

        my $disposition = $part->header('Content-Disposition');
        my %parameters  = @{ ( split_header_words($disposition) )[0] };

        my $upload = $creq->uploads->{ $parameters{filename} };

        isa_ok( $upload, 'Catalyst::Request::Upload' );

        is( $upload->type, $part->content_type, 'Upload Content-Type' );
        is( $upload->size, length( $part->content ), 'Upload Content-Length' );

        # make sure upload is accessible via legacy params->{$file}
        is( $creq->parameters->{ $upload->filename },
            $upload->filename, 'legacy param method ok' );

        SKIP:
        {
            if ( $ENV{CATALYST_SERVER} ) {
                skip 'Not testing for deleted file on remote server', 1;
            }
            ok( !-e $upload->tempname, 'Upload temp file was deleted' );
        }
    }
}

{
    my $creq;

    my $request = POST(
        'http://localhost/dump/request/',
        'Content-Type' => 'multipart/form-data',
        'Content'      => [
            'testfile' => ["$FindBin::Bin/live_engine_request_cookies.t"],
            'testfile' => ["$FindBin::Bin/live_engine_request_headers.t"],
            'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
        ]
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    like(
        $response->content,
        qr/^bless\( .* 'Catalyst::Request' \)$/s,
        'Content is a serialized Catalyst::Request'
    );

    {
        no strict 'refs';
        ok(
            eval '$creq = ' . $response->content,
            'Unserialize Catalyst::Request'
        );
    }

    isa_ok( $creq, 'Catalyst::Request' );
    is( $creq->method, 'POST', 'Catalyst::Request method' );
    is( $creq->content_type, 'multipart/form-data',
        'Catalyst::Request Content-Type' );
    is( $creq->content_length, $request->content_length,
        'Catalyst::Request Content-Length' );

    my @parts = $request->parts;

    for ( my $i = 0 ; $i < @parts ; $i++ ) {

        my $part        = $parts[$i];
        my $disposition = $part->header('Content-Disposition');
        my %parameters  = @{ ( split_header_words($disposition) )[0] };

        my $upload = $creq->uploads->{ $parameters{name} }->[$i];

        isa_ok( $upload, 'Catalyst::Request::Upload' );
        is( $upload->type, $part->content_type, 'Upload Content-Type' );
        is( $upload->filename, $parameters{filename}, 'Upload filename' );
        is( $upload->size, length( $part->content ), 'Upload Content-Length' );
        is( $upload->basename, $parameters{filename}, 'Upload basename' );

        SKIP:
        {
            if ( $ENV{CATALYST_SERVER} ) {
                skip 'Not testing for deleted file on remote server', 1;
            }
            ok( !-e $upload->tempname, 'Upload temp file was deleted' );
        }
    }
}

{
    my $creq;

    my $request = POST(
        'http://localhost/engine/request/uploads/slurp',
        'Content-Type' => 'multipart/form-data',
        'Content'      =>
          [ 'slurp' => ["$FindBin::Bin/live_engine_request_uploads.t"], ]
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    is( $response->content, ( $request->parts )[0]->content, 'Content' );
    
    # XXX: no way to test that temporary file for this test was deleted
}

{
    my $request = POST(
        'http://localhost/dump/request',
        'Content-Type' => 'multipart/form-data',
        'Content'      =>
          [ 'file' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
    );

    # LWP will auto-correct Content-Length when using a remote server
    SKIP:
    {
        if ( $ENV{CATALYST_SERVER} ) {
            skip 'Using remote server', 2;
        }

        # Sending wrong Content-Length here and see if subequent requests fail
        $request->header('Content-Length' => $request->header('Content-Length') + 1);

        ok( my $response = request($request), 'Request' );
        ok( !$response->is_success, 'Response Error' );
    }

    $request = POST(
        'http://localhost/dump/request',
        'Content-Type' => 'multipart/form-data',
        'Content'      =>
          [ 'file1' => ["$FindBin::Bin/../catalyst_130pix.gif"],
            'file2' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    like( $response->content, qr/file1 => bless/, 'Upload with name file1');
    like( $response->content, qr/file2 => bless/, 'Upload with name file2');
    
    my $creq;
    {
        no strict 'refs';
        ok(
            eval '$creq = ' . $response->content,
            'Unserialize Catalyst::Request'
        );
    }
    
    for my $file ( $creq->upload ) {
        my $upload = $creq->upload($file);
        SKIP:
        {
            if ( $ENV{CATALYST_SERVER} ) {
                skip 'Not testing for deleted file on remote server', 1;
            }
            ok( !-e $upload->tempname, 'Upload temp file was deleted' );
        }
    }
}

{
    my $creq;

    my $request = POST(
        'http://localhost/dump/request/',
        'Content-Type' => 'form-data',
        'Content'      => [
            'testfile' => 'textfield value',
            'testfile' => ["$FindBin::Bin/../catalyst_130pix.gif"],
        ]
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    like(
        $response->content,
        qr/^bless\( .* 'Catalyst::Request' \)$/s,
        'Content is a serialized Catalyst::Request'
    );

    {
        no strict 'refs';
        ok(
            eval '$creq = ' . $response->content,
            'Unserialize Catalyst::Request'
        );
    }

    isa_ok( $creq, 'Catalyst::Request' );
    is( $creq->method, 'POST', 'Catalyst::Request method' );
    is( $creq->content_type, 'multipart/form-data',
        'Catalyst::Request Content-Type' );
    is( $creq->content_length, $request->content_length,
        'Catalyst::Request Content-Length' );

    my $param = $creq->parameters->{testfile};

    ok( @$param == 2, '2 values' );
    is( $param->[0], 'textfield value', 'correct value' );
    like( $param->[1], qr/\Qcatalyst_130pix.gif/, 'filename' );

    for my $part ( $request->parts ) {

        my $disposition = $part->header('Content-Disposition');
        my %parameters  = @{ ( split_header_words($disposition) )[0] };

        next unless exists $parameters{filename};

        my $upload = $creq->uploads->{ $parameters{name} };

        isa_ok( $upload, 'Catalyst::Request::Upload' );

        is( $upload->type, $part->content_type, 'Upload Content-Type' );
        is( $upload->size, length( $part->content ), 'Upload Content-Length' );
        is( $upload->filename, 'catalyst_130pix.gif', 'Upload Filename' );
        is( $upload->basename, 'catalyst_130pix.gif', 'Upload basename' );
        
        SKIP:
        {
            if ( $ENV{CATALYST_SERVER} ) {
                skip 'Not testing for deleted file on remote server', 1;
            }
            ok( !-e $upload->tempname, 'Upload temp file was deleted' );
        }
    }
}

# Test PUT request with application/octet-stream file gets deleted

{
    my $body;

    my $request = PUT(
        'http://localhost/dump/body/',
        'Content-Type' => 'application/octet-stream',
        'Content'      => 'foobarbaz',
        'Content-Length' => 9,
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    like(
       $response->content,
       qr/bless\( .* 'HTTP::Body::OctetStream' \)/s,
       'Content is a serialized HTTP::Body::OctetStream'
    );

    {
        no strict 'refs';
        ok(
            eval '$body = ' . substr( $response->content, 8 ), # FIXME - substr not needed in other test cases?
            'Unserialize HTTP::Body::OctetStream'
        ) or warn $@;
    }

    isa_ok( $body, 'HTTP::Body::OctetStream' );
    isa_ok($body->body, 'File::Temp');

    SKIP:
    {
        if ( $ENV{CATALYST_SERVER} ) {
            skip 'Not testing for deleted file on remote server', 1;
        }
        ok( !-e $body->body->filename, 'Upload temp file was deleted' );
    }
}

# test uploadtmp config var
SKIP:
{
    if ( $ENV{CATALYST_SERVER} ) {
        skip 'Not testing uploadtmp on remote server', 14;
    }
    
    my $creq;

    my $dir = "$FindBin::Bin/";
    local TestApp->config->{ uploadtmp } = $dir;
    $dir = Path::Class::Dir->new( $dir );

    my $request = POST(
        'http://localhost/dump/request/',
        'Content-Type' => 'multipart/form-data',
        'Content'      => [
            'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
        ]
    );

    ok( my $response = request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->content_type, 'text/plain', 'Response Content-Type' );
    like(
        $response->content,
        qr/^bless\( .* 'Catalyst::Request' \)$/s,
        'Content is a serialized Catalyst::Request'
    );

    {
        no strict 'refs';
        ok(
            eval '$creq = ' . $response->content,
            'Unserialize Catalyst::Request'
        );
    }

    isa_ok( $creq, 'Catalyst::Request' );
    is( $creq->method, 'POST', 'Catalyst::Request method' );
    is( $creq->content_type, 'multipart/form-data',
        'Catalyst::Request Content-Type' );
    is( $creq->content_length, $request->content_length,
        'Catalyst::Request Content-Length' );

    for my $part ( $request->parts ) {

        my $disposition = $part->header('Content-Disposition');
        my %parameters  = @{ ( split_header_words($disposition) )[0] };

        next unless exists $parameters{filename};

        my $upload = $creq->{uploads}->{ $parameters{name} };

        isa_ok( $upload, 'Catalyst::Request::Upload' );

        is( $upload->type, $part->content_type, 'Upload Content-Type' );
        is( $upload->size, length( $part->content ), 'Upload Content-Length' );

        like( $upload->tempname, qr{\Q$dir\E}, 'uploadtmp' );

        ok( !-e $upload->tempname, 'Upload temp file was deleted' );
    }
}
Commit	Line	Data
dd4e6fd2	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use FindBin;
ae29b412	7	use lib "$FindBin::Bin/../lib";
dd4e6fd2	8
ae29b412	9	use Test::More tests => 105;
dd4e6fd2	10	use Catalyst::Test 'TestApp';
	11
	12	use Catalyst::Request;
5c0ff128	13	use Catalyst::Request::Upload;
ae29b412	14	use HTTP::Body::OctetStream;
dd4e6fd2	15	use HTTP::Headers;
	16	use HTTP::Headers::Util 'split_header_words';
	17	use HTTP::Request::Common;
6d41c7c3	18	use Path::Class::Dir;
dd4e6fd2	19
	20	{
	21	my $creq;
	22
fbcc39ad	23	my $request = POST(
	24	'http://localhost/dump/request/',
	25	'Content-Type' => 'form-data',
dd4e6fd2	26	'Content' => [
a2e038a1	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"],
fbcc39ad	33	]
dd4e6fd2	34	);
	35
	36	ok( my $response = request($request), 'Request' );
	37	ok( $response->is_success, 'Response Successful 2xx' );
fbcc39ad	38	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	39	like(
	40	$response->content,
	41	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	42	'Content is a serialized Catalyst::Request'
	43	);
	44
dd4e6fd2	45	{
dd4e6fd2	46	no strict 'refs';
fbcc39ad	47	ok(
	48	eval '$creq = ' . $response->content,
	49	'Unserialize Catalyst::Request'
	50	);
dd4e6fd2	51	}
	52
	53	isa_ok( $creq, 'Catalyst::Request' );
	54	is( $creq->method, 'POST', 'Catalyst::Request method' );
fbcc39ad	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' );
dd4e6fd2	59
	60	for my $part ( $request->parts ) {
	61
	62	my $disposition = $part->header('Content-Disposition');
	63	my %parameters = @{ ( split_header_words($disposition) )[0] };
	64
ae29b412	65	my $upload = $creq->uploads->{ $parameters{filename} };
fbcc39ad	66
5c0ff128	67	isa_ok( $upload, 'Catalyst::Request::Upload' );
dd4e6fd2	68
d3fced79	69	is( $upload->type, $part->content_type, 'Upload Content-Type' );
d3fced79	70	is( $upload->size, length( $part->content ), 'Upload Content-Length' );
a2e038a1	71
c4bed79a	72	# make sure upload is accessible via legacy params->{$file}
ae29b412	73	is( $creq->parameters->{ $upload->filename },
a2e038a1	74	$upload->filename, 'legacy param method ok' );
a2e038a1	75
451553f5	76	SKIP:
	77	{
	78	if ( $ENV{CATALYST_SERVER} ) {
	79	skip 'Not testing for deleted file on remote server', 1;
	80	}
	81	ok( !-e $upload->tempname, 'Upload temp file was deleted' );
	82	}
dd4e6fd2	83	}
dd4e6fd2	84	}
1408d0a4	85
	86	{
	87	my $creq;
	88
fbcc39ad	89	my $request = POST(
fbcc39ad	90	'http://localhost/dump/request/',
1408d0a4	91	'Content-Type' => 'multipart/form-data',
1408d0a4	92	'Content' => [
a2e038a1	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"],
fbcc39ad	96	]
1408d0a4	97	);
	98
	99	ok( my $response = request($request), 'Request' );
	100	ok( $response->is_success, 'Response Successful 2xx' );
fbcc39ad	101	is( $response->content_type, 'text/plain', 'Response Content-Type' );
	102	like(
	103	$response->content,
	104	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	105	'Content is a serialized Catalyst::Request'
	106	);
	107
1408d0a4	108	{
1408d0a4	109	no strict 'refs';
fbcc39ad	110	ok(
	111	eval '$creq = ' . $response->content,
	112	'Unserialize Catalyst::Request'
	113	);
1408d0a4	114	}
	115
	116	isa_ok( $creq, 'Catalyst::Request' );
	117	is( $creq->method, 'POST', 'Catalyst::Request method' );
fbcc39ad	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' );
	122
1408d0a4	123	my @parts = $request->parts;
1408d0a4	124
fbcc39ad	125	for ( my $i = 0 ; $i < @parts ; $i++ ) {
fbcc39ad	126
1408d0a4	127	my $part = $parts[$i];
	128	my $disposition = $part->header('Content-Disposition');
	129	my %parameters = @{ ( split_header_words($disposition) )[0] };
fbcc39ad	130
ae29b412	131	my $upload = $creq->uploads->{ $parameters{name} }->[$i];
fbcc39ad	132
1408d0a4	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' );
ae29b412	137	is( $upload->basename, $parameters{filename}, 'Upload basename' );
a2e038a1	138
451553f5	139	SKIP:
	140	{
	141	if ( $ENV{CATALYST_SERVER} ) {
	142	skip 'Not testing for deleted file on remote server', 1;
	143	}
	144	ok( !-e $upload->tempname, 'Upload temp file was deleted' );
	145	}
1408d0a4	146	}
1408d0a4	147	}
32d4bba8	148
	149	{
	150	my $creq;
	151
fbcc39ad	152	my $request = POST(
fbcc39ad	153	'http://localhost/engine/request/uploads/slurp',
32d4bba8	154	'Content-Type' => 'multipart/form-data',
a2e038a1	155	'Content' =>
a2e038a1	156	[ 'slurp' => ["$FindBin::Bin/live_engine_request_uploads.t"], ]
32d4bba8	157	);
	158
	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' );
fbcc39ad	162	is( $response->content, ( $request->parts )[0]->content, 'Content' );
ae29b412	163
ae29b412	164	# XXX: no way to test that temporary file for this test was deleted
32d4bba8	165	}
fdb3773e	166
	167	{
	168	my $request = POST(
	169	'http://localhost/dump/request',
	170	'Content-Type' => 'multipart/form-data',
	171	'Content' =>
ae29b412	172	[ 'file' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
fdb3773e	173	);
fdb3773e	174
c4c4dd19	175	# LWP will auto-correct Content-Length when using a remote server
	176	SKIP:
	177	{
	178	if ( $ENV{CATALYST_SERVER} ) {
	179	skip 'Using remote server', 2;
	180	}
fdb3773e	181
c4c4dd19	182	# Sending wrong Content-Length here and see if subequent requests fail
	183	$request->header('Content-Length' => $request->header('Content-Length') + 1);
	184
	185	ok( my $response = request($request), 'Request' );
	186	ok( !$response->is_success, 'Response Error' );
	187	}
fdb3773e	188
	189	$request = POST(
	190	'http://localhost/dump/request',
	191	'Content-Type' => 'multipart/form-data',
	192	'Content' =>
ae29b412	193	[ 'file1' => ["$FindBin::Bin/../catalyst_130pix.gif"],
ae29b412	194	'file2' => ["$FindBin::Bin/../catalyst_130pix.gif"], ]
fdb3773e	195	);
fdb3773e	196
c4c4dd19	197	ok( my $response = request($request), 'Request' );
fdb3773e	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');
ae29b412	202
	203	my $creq;
	204	{
	205	no strict 'refs';
	206	ok(
	207	eval '$creq = ' . $response->content,
	208	'Unserialize Catalyst::Request'
	209	);
	210	}
	211
	212	for my $file ( $creq->upload ) {
	213	my $upload = $creq->upload($file);
	214	SKIP:
	215	{
	216	if ( $ENV{CATALYST_SERVER} ) {
	217	skip 'Not testing for deleted file on remote server', 1;
	218	}
	219	ok( !-e $upload->tempname, 'Upload temp file was deleted' );
	220	}
	221	}
fdb3773e	222	}
a7e05d9d	223
	224	{
	225	my $creq;
	226
	227	my $request = POST(
	228	'http://localhost/dump/request/',
	229	'Content-Type' => 'form-data',
	230	'Content' => [
	231	'testfile' => 'textfield value',
ae29b412	232	'testfile' => ["$FindBin::Bin/../catalyst_130pix.gif"],
a7e05d9d	233	]
	234	);
	235
	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' );
	239	like(
	240	$response->content,
	241	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	242	'Content is a serialized Catalyst::Request'
	243	);
	244
	245	{
	246	no strict 'refs';
	247	ok(
	248	eval '$creq = ' . $response->content,
	249	'Unserialize Catalyst::Request'
	250	);
	251	}
	252
	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' );
	259
ae29b412	260	my $param = $creq->parameters->{testfile};
a7e05d9d	261
	262	ok( @$param == 2, '2 values' );
	263	is( $param->[0], 'textfield value', 'correct value' );
	264	like( $param->[1], qr/\Qcatalyst_130pix.gif/, 'filename' );
	265
	266	for my $part ( $request->parts ) {
	267
	268	my $disposition = $part->header('Content-Disposition');
	269	my %parameters = @{ ( split_header_words($disposition) )[0] };
	270
	271	next unless exists $parameters{filename};
	272
ae29b412	273	my $upload = $creq->uploads->{ $parameters{name} };
a7e05d9d	274
	275	isa_ok( $upload, 'Catalyst::Request::Upload' );
	276
	277	is( $upload->type, $part->content_type, 'Upload Content-Type' );
	278	is( $upload->size, length( $part->content ), 'Upload Content-Length' );
ae29b412	279	is( $upload->filename, 'catalyst_130pix.gif', 'Upload Filename' );
	280	is( $upload->basename, 'catalyst_130pix.gif', 'Upload basename' );
	281
	282	SKIP:
	283	{
	284	if ( $ENV{CATALYST_SERVER} ) {
	285	skip 'Not testing for deleted file on remote server', 1;
	286	}
	287	ok( !-e $upload->tempname, 'Upload temp file was deleted' );
	288	}
	289	}
	290	}
	291
	292	# Test PUT request with application/octet-stream file gets deleted
	293
	294	{
	295	my $body;
	296
	297	my $request = PUT(
	298	'http://localhost/dump/body/',
	299	'Content-Type' => 'application/octet-stream',
	300	'Content' => 'foobarbaz',
	301	'Content-Length' => 9,
	302	);
	303
	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' );
	307	like(
	308	$response->content,
	309	qr/bless\( .* 'HTTP::Body::OctetStream' \)/s,
	310	'Content is a serialized HTTP::Body::OctetStream'
	311	);
	312
	313	{
	314	no strict 'refs';
	315	ok(
	316	eval '$body = ' . substr( $response->content, 8 ), # FIXME - substr not needed in other test cases?
	317	'Unserialize HTTP::Body::OctetStream'
	318	) or warn $@;
	319	}
	320
	321	isa_ok( $body, 'HTTP::Body::OctetStream' );
	322	isa_ok($body->body, 'File::Temp');
	323
	324	SKIP:
	325	{
	326	if ( $ENV{CATALYST_SERVER} ) {
	327	skip 'Not testing for deleted file on remote server', 1;
	328	}
	329	ok( !-e $body->body->filename, 'Upload temp file was deleted' );
a7e05d9d	330	}
a7e05d9d	331	}
3c402610	332
3c402610	333	# test uploadtmp config var
451553f5	334	SKIP:
3c402610	335	{
451553f5	336	if ( $ENV{CATALYST_SERVER} ) {
ae29b412	337	skip 'Not testing uploadtmp on remote server', 14;
451553f5	338	}
451553f5	339
3c402610	340	my $creq;
	341
	342	my $dir = "$FindBin::Bin/";
	343	local TestApp->config->{ uploadtmp } = $dir;
6d41c7c3	344	$dir = Path::Class::Dir->new( $dir );
3c402610	345
	346	my $request = POST(
	347	'http://localhost/dump/request/',
	348	'Content-Type' => 'multipart/form-data',
	349	'Content' => [
	350	'testfile' => ["$FindBin::Bin/live_engine_request_uploads.t"],
	351	]
	352	);
	353
	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' );
	357	like(
	358	$response->content,
	359	qr/^bless\( .* 'Catalyst::Request' \)$/s,
	360	'Content is a serialized Catalyst::Request'
	361	);
	362
	363	{
	364	no strict 'refs';
	365	ok(
	366	eval '$creq = ' . $response->content,
	367	'Unserialize Catalyst::Request'
	368	);
	369	}
	370
	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' );
	377
	378	for my $part ( $request->parts ) {
	379
	380	my $disposition = $part->header('Content-Disposition');
	381	my %parameters = @{ ( split_header_words($disposition) )[0] };
	382
	383	next unless exists $parameters{filename};
	384
	385	my $upload = $creq->{uploads}->{ $parameters{name} };
	386
	387	isa_ok( $upload, 'Catalyst::Request::Upload' );
	388
	389	is( $upload->type, $part->content_type, 'Upload Content-Type' );
	390	is( $upload->size, length( $part->content ), 'Upload Content-Length' );
	391
	392	like( $upload->tempname, qr{\Q$dir\E}, 'uploadtmp' );
ae29b412	393
ae29b412	394	ok( !-e $upload->tempname, 'Upload temp file was deleted' );
3c402610	395	}
	396	}
	397