my $fh = File::Temp->new( UNLINK => 0 );
$fh->write( $part->content ) or die $!;
+ $fh->flush or die $!;
my $upload = Catalyst::Request::Upload->new(
filename => $parameters{filename},
$fh->close;
push( @uploads, $parameters{name}, $upload );
- push( @params, $parameters{name}, $fh );
+ push( @params, $parameters{name}, $parameters{filename} );
}
else {
push( @params, $parameters{name}, $part->content );
isa_ok( $upload, 'Catalyst::Request::Upload' );
- #isnt( $upload, undef, 'Upload filename' );
- #is( $upload->{type}, $part->content_type, 'Upload Content-Type' );
- #is( $upload->{size}, length( $part->content ), 'Upload Content-Length' );
+ is( $upload->type, $part->content_type, 'Upload Content-Type' );
+ is( $upload->size, length( $part->content ), 'Upload Content-Length' );
}
}