X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10mixparamcontent.t;h=27f93c52f142b7bad11211d03d074c4ec72c7c09;hb=HEAD;hp=726fe0b8bf92e44463605804f0bd010cf5cc15d8;hpb=af65f6d38b74acbf2f621084b1968204a3e57af4;p=catagits%2FHTTP-Body.git

diff --git a/t/10mixparamcontent.t b/t/10mixparamcontent.t
index 726fe0b..27f93c5 100644
--- a/t/10mixparamcontent.t
+++ b/t/10mixparamcontent.t
@@ -7,99 +7,116 @@ 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 /;
 
+SKIP: {
+    eval { require HTTP::Message::PSGI };
 
-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}),
+    skip "Plack not installed", 13 if $@;
+
+    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,
+          ],
+          arg3 => [
+            "$path", Encode::encode_utf8('♥ttachment.txt'),
             'Content-Type' => 'text/plain; charset=UTF-8',
+            'Content' => $string_in_utf8,
+          ],
+          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,
         },
-        done => 1,
-        name => 'arg1',
-        size => length($string_in_utf8),
-    },
-    'arg1 part data correct',
-);
-
-cmp_deeply(
-    $body->part_data->{'arg2'},
-    [
-        ({
-            data => $string_in_shiftjis,
+        '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=SHIFT_JIS',
+                'Content-Type' => 'text/plain; charset=UTF-8',
             },
             done => 1,
-            name => 'arg2',
-            size => length($string_in_shiftjis),
-        }) x 2,
-    ],
-    'arg2 part data correct',
-);
+            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',
+    );
+
+    my $filename = $body->upload->{'arg3'} ? ($body->upload->{'arg3'}->{tempname}||"") : "";
+
+    ok($filename =~ qr/\Q$HTTP::Body::MultiPart::file_temp_suffix\E$/, 'arg3 temp file extension correct');
+
+};
 
 done_testing;