diff options
| author | Loïc Hoguin <[email protected]> | 2019-01-05 22:30:10 +0100 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2019-01-05 22:30:10 +0100 |
| commit | 08c4a71c801246c66427f2a37d2f0f6de561d448 (patch) | |
| tree | e12b21419c277692d44834e6b867a0f5c95d07b2 /test | |
| parent | ab72796fdcc30a1227cbdd9069bd36aff14ebcfc (diff) | |
| download | gun-08c4a71c801246c66427f2a37d2f0f6de561d448.tar.gz gun-08c4a71c801246c66427f2a37d2f0f6de561d448.tar.bz2 gun-08c4a71c801246c66427f2a37d2f0f6de561d448.zip | |
Fix transfer-encoding precedence over content-length
Diffstat (limited to 'test')
| -rw-r--r-- | test/rfc7230_SUITE.erl | 26 |
1 files changed, 26 insertions, 0 deletions
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). |