1 files changed, 93 insertions, 0 deletions
diff --git a/debian/perl-framework/t/apache/chunkinput.t b/debian/perl-framework/t/apache/chunkinput.t
new file mode 100644
index 0000000..2538585
--- /dev/null
+++ b/debian/perl-framework/t/apache/chunkinput.t
@@ -0,0 +1,93 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestUtil;
+use Apache::TestRequest ();
+
+my @test_strings = ("0",
+                    "A\r\n1234567890\r\n0",
+                    "A; ext=val\r\n1234567890\r\n0",
+                    "A    \r\n1234567890\r\n0",        # <10 BWS
+                    "A :: :: :: \r\n1234567890\r\n0",  # <10 BWS multiple send
+                    "A           \r\n1234567890\r\n0", # >10 BWS
+                    "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA\r\n",
+                    "A; ext=\x7Fval\r\n1234567890\r\n0",
+                    " A",
+                    );
+my @req_strings =  ("/echo_post_chunk",
+                    "/i_do_not_exist_in_your_wildest_imagination");
+
+# This is expanded out as these results...
+my @resp_strings = ("HTTP/1.1 200 OK",        # "0"
+                    "HTTP/1.1 404 Not Found",
+                    "HTTP/1.1 200 OK",        # "A"
+                    "HTTP/1.1 404 Not Found",
+                    "HTTP/1.1 200 OK",        # "A; ext=val"
+                    "HTTP/1.1 404 Not Found",
+                    "HTTP/1.1 200 OK",        # "A    "
+                    "HTTP/1.1 404 Not Found",
+                    "HTTP/1.1 200 OK",        # "A " + " " + " "  + " " pkts 
+                    "HTTP/1.1 404 Not Found",
+                    "HTTP/1.1 400 Bad Request", # >10 BWS
+                    "HTTP/1.1 400 Bad Request",
+                    "HTTP/1.1 413 Request Entity Too Large", # Overflow size
+                    "HTTP/1.1 413 Request Entity Too Large",
+                    "HTTP/1.1 400 Bad Request",    # Ctrl in data
+                    "HTTP/1.1 400 Bad Request",
+                    "HTTP/1.1 400 Bad Request",    # Invalid LWS
+                    "HTTP/1.1 400 Bad Request",
+                   );
+
+my $tests = 4 * @test_strings + 1;
+my $vars = Apache::Test::vars();
+my $module = 'default';
+my $cycle = 0;
+
+plan tests => $tests, ['echo_post_chunk'];
+
+print "testing $module\n";
+
+for my $data (@test_strings) {
+  for my $request_uri (@req_strings) {
+    my $sock = Apache::TestRequest::vhost_socket($module);
+    ok $sock;
+
+    Apache::TestRequest::socket_trace($sock);
+
+    my @elts = split("::", $data);
+
+    $sock->print("POST $request_uri HTTP/1.0\r\n");
+    $sock->print("Transfer-Encoding: chunked\r\n");
+    $sock->print("\r\n");
+    if (@elts > 1) {
+        for my $elt (@elts) {
+            $sock->print("$elt");
+            sleep 0.5;
+        }
+        $sock->print("\r\n");
+    }
+    else {
+        $sock->print("$data\r\n");
+    }
+    $sock->print("X-Chunk-Trailer: $$\r\n");
+    $sock->print("\r\n");
+
+    #Read the status line
+    chomp(my $response = Apache::TestRequest::getline($sock));
+    $response =~ s/\s$//;
+    ok t_cmp($response, $resp_strings[$cycle++], "response codes");
+
+    do {
+        chomp($response = Apache::TestRequest::getline($sock));
+        $response =~ s/\s$//;
+    }
+    while ($response ne "");
+
+    if ($cycle == 1) {
+        $response = Apache::TestRequest::getline($sock);
+        chomp($response) if (defined($response));
+        ok t_cmp($response, "$$", "trailer (pid)");
+    }
+  }
+}