import the Plack::Request test suite

1 files changed, 77 insertions, 0 deletions

diff --git a/t/many_upload.t b/t/many_upload.t
new file mode 100644
index 0000000..77789a6
--- /dev/null
+++ b/t/many_upload.t
@@ -0,0 +1,77 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Web::Request;
+
+my $content = qq{------BOUNDARY
+Content-Disposition: form-data; name="test_upload_file"; filename="yappo.txt"
+Content-Type: text/plain
+
+SHOGUN
+------BOUNDARY
+Content-Disposition: form-data; name="test_upload_file"; filename="yappo2.txt"
+Content-Type: text/plain
+
+SHOGUN2
+------BOUNDARY
+Content-Disposition: form-data; name="test_upload_file3"; filename="yappo3.txt"
+Content-Type: text/plain
+
+SHOGUN3
+------BOUNDARY
+Content-Disposition: form-data; name="test_upload_file4"; filename="yappo4.txt"
+Content-Type: text/plain
+
+SHOGUN4
+------BOUNDARY
+Content-Disposition: form-data; name="test_upload_file4"; filename="yappo5.txt"
+Content-Type: text/plain
+
+SHOGUN4
+------BOUNDARY
+Content-Disposition: form-data; name="test_upload_file6"; filename="yappo6.txt"
+Content-Type: text/plain
+
+SHOGUN6
+------BOUNDARY--
+};
+$content =~ s/\r\n/\n/g;
+$content =~ s/\n/\r\n/g;
+
+{
+    open my $in, '<', \$content;
+    my $req = Web::Request->new_from_env({
+        'psgi.input'   => $in,
+        CONTENT_LENGTH => length($content),
+        CONTENT_TYPE   => 'multipart/form-data; boundary=----BOUNDARY',
+        REQUEST_METHOD => 'POST',
+        SCRIPT_NAME    => '/',
+        SERVER_PORT    => 80,
+    });
+
+    my $uploads = $req->uploads;
+
+    ok !exists $uploads->{undef};
+
+    my @uploads = @{ $req->all_uploads->{test_upload_file} };
+
+    like slurp($uploads[0]), qr|^SHOGUN|;
+    like slurp($uploads[1]), qr|^SHOGUN|;
+    is slurp($req->uploads->{test_upload_file4}), 'SHOGUN4';
+
+    my $test_upload_file3 = $req->uploads->{test_upload_file3};
+    is slurp($test_upload_file3), 'SHOGUN3';
+
+    my @test_upload_file6 = @{ $req->all_uploads->{test_upload_file6} };
+    is slurp($test_upload_file6[0]), 'SHOGUN6';
+}
+
+done_testing;
+
+sub slurp {
+    my $up = shift;
+    open my $fh, "<", $up->tempname or die;
+    join '', <$fh>;
+}