Tests: HTTP/1.0 requests with Transfer-Encoding.
diff --git a/body_chunked.t b/body_chunked.t
index cba2cfd..2993b65 100644
--- a/body_chunked.t
+++ b/body_chunked.t
@@ -22,7 +22,7 @@
select STDERR; $| = 1;
select STDOUT; $| = 1;
-my $t = Test::Nginx->new()->has(qw/http proxy rewrite/)->plan(17);
+my $t = Test::Nginx->new()->has(qw/http proxy rewrite/)->plan(18);
$t->write_file_expand('nginx.conf', <<'EOF');
@@ -186,6 +186,14 @@
}
+TODO: {
+local $TODO = 'not yet' unless $t->has_version('1.21.2');
+
+like(http_transfer_encoding("chunked", "1.0"), qr/400 Bad/,
+ 'transfer encoding in HTTP/1.0 requests');
+
+}
+
###############################################################################
sub read_body_file {
@@ -222,9 +230,10 @@
}
sub http_transfer_encoding {
- my ($encoding) = @_;
+ my ($encoding, $version) = @_;
+ $version ||= "1.1";
- http("GET / HTTP/1.1" . CRLF
+ http("GET / HTTP/$version" . CRLF
. "Host: localhost" . CRLF
. "Connection: close" . CRLF
. "Transfer-Encoding: $encoding" . CRLF . CRLF