test: multiple transfer-encoding headers

Author: hamishforbes

t/02-chunked.t

@@ -1,8 +1,6 @@
-use Test::Nginx::Socket;
+use Test::Nginx::Socket 'no_plan';
 use Cwd qw(cwd);
 
-plan tests => repeat_each() * (blocks() * 4);
-
 my $pwd = cwd();
 
 $ENV{TEST_NGINX_RESOLVER} = '8.8.8.8';
@@ -163,3 +161,64 @@ GET /a
 --- no_error_log
 [error]
 [warn]
+
+
+=== TEST 4: Chunked. multiple-headers, mixed case
+--- http_config eval: $::HttpConfig
+--- config
+    location = /a {
+        content_by_lua_block {
+            local http = require "resty.http"
+            local httpc = http.new()
+            httpc:connect("127.0.0.1", ngx.var.server_port)
+
+            local res, err = httpc:request{
+                path = "/b"
+            }
+
+            local chunks = {}
+            local c = 1
+            repeat
+                local chunk, err = res.body_reader()
+                if chunk then
+                    chunks[c] = chunk
+                    c = c + 1
+                end
+            until not chunk
+
+            local body = table.concat(chunks)
+
+            ngx.say(#body)
+            ngx.say(#chunks)
+            ngx.say(type(res.headers["Transfer-Encoding"]))
+            httpc:close()
+        }
+    }
+    location = /b {
+        header_filter_by_lua_block {
+            ngx.header["Transfer-Encoding"] = {"chUnked", "CHunked"}
+        }
+        content_by_lua_block {
+            local len = 32768
+            local t = {}
+            for i=1,len do
+                t[i] = 0
+            end
+            ngx.print(table.concat(t))
+            local len = 32768
+            local t = {}
+            for i=1,len do
+                t[i] = 0
+            end
+            ngx.print(table.concat(t))
+        }
+    }
+--- request
+GET /a
+--- response_body
+65536
+2
+table
+--- no_error_log
+[error]
+[warn]