more comprehensive test for part_data

[catagits/HTTP-Body.git] / t / 10mixparamcontent.t

use utf8;
use warnings;
use strict;

use Test::More;
use Test::Deep;
use HTTP::Body;
use HTTP::Request::Common;
use Encode;
use HTTP::Message::PSGI ();
use File::Spec::Functions;
use File::Temp qw/ tempdir /;


my $string_for_utf8 = 'test ♥';
my $string_in_utf8 = Encode::encode('UTF-8',$string_for_utf8);
my $string_for_shiftjis = 'test テスト';
my $string_in_shiftjis = Encode::encode('SHIFT_JIS',$string_for_shiftjis);
my $path = File::Spec->catfile('t', 'utf8.txt');

ok my $req = POST '/root/echo_arg',
  Content_Type => 'form-data',
    Content =>  [
      arg0 => 'helloworld',
      arg1 => [
        undef, '',
        'Content-Type' =>'text/plain; charset=UTF-8',
        'Content' => $string_in_utf8, ],
      arg2 => [
        undef, '',
        'Content-Type' =>'text/plain; charset=SHIFT_JIS',
        'Content' => $string_in_shiftjis, ],
      arg2 => [
        undef, '',
        'Content-Type' =>'text/plain; charset=SHIFT_JIS',
        'Content' => $string_in_shiftjis, ],
      file => [
        "$path", Encode::encode_utf8('♥ttachment.txt'), 'Content-Type' =>'text/html; charset=UTF-8'
      ],
    ];


ok my $env = HTTP::Message::PSGI::req_to_psgi($req);
ok my $fh = $env->{'psgi.input'};
ok my $body = HTTP::Body->new( $req->header('Content-Type'), $req->header('Content-Length') );
ok my $tempdir = tempdir( 'XXXXXXX', CLEANUP => 1, DIR => File::Spec->tmpdir() );
$body->tmpdir($tempdir);

binmode $fh, ':raw';

while ( $fh->read( my $buffer, 1024 ) ) {
  $body->add($buffer);
}

is $body->param->{'arg0'}, 'helloworld';
is $body->param->{'arg1'}, $string_in_utf8;
is $body->param->{'arg2'}[0], $string_in_shiftjis;
is $body->param->{'arg2'}[1], $string_in_shiftjis;

cmp_deeply(
    $body->part_data->{'arg0'},
    {
        data => 'helloworld',
        headers => {
            'Content-Disposition' => re(qr{^form-data\b}),
        },
        done => 1,
        name => 'arg0',
        size => 10,
    },
    'arg0 part data correct',
);
cmp_deeply(
    $body->part_data->{'arg1'},
    {
        data => $string_in_utf8,
        headers => {
            'Content-Disposition' => re(qr{^form-data\b}),
            'Content-Type' => 'text/plain; charset=UTF-8',
        },
        done => 1,
        name => 'arg1',
        size => length($string_in_utf8),
    },
    'arg1 part data correct',
);

cmp_deeply(
    $body->part_data->{'arg2'},
    [
        ({
            data => $string_in_shiftjis,
            headers => {
                'Content-Disposition' => re(qr{^form-data\b}),
                'Content-Type' => 'text/plain; charset=SHIFT_JIS',
            },
            done => 1,
            name => 'arg2',
            size => length($string_in_shiftjis),
        }) x 2,
    ],
    'arg2 part data correct',
);

done_testing;