From 08c4a71c801246c66427f2a37d2f0f6de561d448 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Sat, 5 Jan 2019 22:30:10 +0100
Subject: Fix transfer-encoding precedence over content-length

---
 test/rfc7230_SUITE.erl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

(limited to 'test')

diff --git a/test/rfc7230_SUITE.erl b/test/rfc7230_SUITE.erl
index c7aa63d..07d6b13 100644
--- a/test/rfc7230_SUITE.erl
+++ b/test/rfc7230_SUITE.erl
@@ -18,6 +18,7 @@
 
 -import(ct_helper, [doc/1]).
 -import(gun_test, [init_origin/2]).
+-import(gun_test, [init_origin/3]).
 -import(gun_test, [receive_from/1]).
 
 all() ->
@@ -56,3 +57,28 @@ do_host_port(Transport, DefaultPort, HostHeaderPort) ->
 	[<<"host: localhost", Rest/bits>>] = [L || <<"host: ", _/bits>> = L <- Lines],
 	HostHeaderPort = Rest,
 	gun:close(ConnPid).
+
+transfer_encoding_overrides_content_length(_) ->
+	doc("When both transfer-encoding and content-length are provided, "
+		"content-length must be ignored. (RFC7230 3.3.3)"),
+	{ok, _, OriginPort} = init_origin(tcp, http,
+		fun(_, ClientSocket, ClientTransport) ->
+			{ok, _} = ClientTransport:recv(ClientSocket, 0, 1000),
+			ClientTransport:send(ClientSocket,
+				"HTTP/1.1 200 OK\r\n"
+				"content-length: 12\r\n"
+				"transfer-encoding: chunked\r\n"
+				"\r\n"
+				"6\r\n"
+				"hello \r\n"
+				"6\r\n"
+				"world!\r\n"
+				"0\r\n\r\n"
+			)
+		end),
+	{ok, ConnPid} = gun:open("localhost", OriginPort),
+	{ok, http} = gun:await_up(ConnPid),
+	StreamRef = gun:get(ConnPid, "/"),
+	{response, nofin, 200, _} = gun:await(ConnPid, StreamRef),
+	{ok, <<"hello world!">>} = gun:await_body(ConnPid, StreamRef),
+	gun:close(ConnPid).
-- 
cgit v1.2.3