aboutsummaryrefslogtreecommitdiffstats
path: root/test/rfc7230_SUITE.erl
diff options
context:
space:
mode:
Diffstat (limited to 'test/rfc7230_SUITE.erl')
-rw-r--r--test/rfc7230_SUITE.erl66
1 files changed, 63 insertions, 3 deletions
diff --git a/test/rfc7230_SUITE.erl b/test/rfc7230_SUITE.erl
index 3e06d6c..6887d27 100644
--- a/test/rfc7230_SUITE.erl
+++ b/test/rfc7230_SUITE.erl
@@ -1745,9 +1745,55 @@ no_body_in_head_response(Config) ->
%no_body_in_100_response(Config) ->
%no_body_in_101_response(Config) ->
%no_body_in_102_response(Config) ->
-%no_body_in_204_response(Config) ->
-%no_body_in_304_response(Config) ->
-%1xx, 204 and 304 responses never include a message body. (RFC7230 3.3)
+%1xx responses never include a message body. (RFC7230 3.3)
+
+no_body_in_204_response(Config) ->
+ doc("204 responses never include a message body. (RFC7230 3.3)"),
+ Client = raw_open(Config),
+ ok = raw_send(Client, [
+ "GET /resp/reply2/204 HTTP/1.1\r\n"
+ "Host: localhost\r\n"
+ "\r\n"]),
+ {_, 204, _, Rest} = cow_http:parse_status_line(raw_recv_head(Client)),
+ {_, <<>>} = cow_http:parse_headers(Rest),
+ {error, timeout} = raw_recv(Client, 1, 1000),
+ ok.
+
+no_body_in_204_response_stream(Config) ->
+ doc("204 responses never include a message body. (RFC7230 3.3)"),
+ Client = raw_open(Config),
+ ok = raw_send(Client, [
+ "GET /resp/stream_reply2/204 HTTP/1.1\r\n"
+ "Host: localhost\r\n"
+ "\r\n"]),
+ {_, 204, _, Rest} = cow_http:parse_status_line(raw_recv_head(Client)),
+ {_, <<>>} = cow_http:parse_headers(Rest),
+ {error, timeout} = raw_recv(Client, 1, 1000),
+ ok.
+
+no_body_in_304_response(Config) ->
+ doc("304 responses never include a message body. (RFC7230 3.3)"),
+ Client = raw_open(Config),
+ ok = raw_send(Client, [
+ "GET /resp/reply2/304 HTTP/1.1\r\n"
+ "Host: localhost\r\n"
+ "\r\n"]),
+ {_, 304, _, Rest} = cow_http:parse_status_line(raw_recv_head(Client)),
+ {_, <<>>} = cow_http:parse_headers(Rest),
+ {error, timeout} = raw_recv(Client, 1, 1000),
+ ok.
+
+no_body_in_304_response_stream(Config) ->
+ doc("304 responses never include a message body. (RFC7230 3.3)"),
+ Client = raw_open(Config),
+ ok = raw_send(Client, [
+ "GET /resp/stream_reply2/304 HTTP/1.1\r\n"
+ "Host: localhost\r\n"
+ "\r\n"]),
+ {_, 304, _, Rest} = cow_http:parse_status_line(raw_recv_head(Client)),
+ {_, <<>>} = cow_http:parse_headers(Rest),
+ {error, timeout} = raw_recv(Client, 1, 1000),
+ ok.
same_content_length_as_get_in_head_response(Config) ->
doc("Responses to HEAD requests can include a content-length header. "
@@ -1802,6 +1848,20 @@ no_content_length_in_204_response(Config) ->
false = lists:keyfind(<<"content-length">>, 1, Headers),
ok.
+no_content_length_in_empty_304_response(Config) ->
+ doc("304 responses should not include a content-length header, "
+ "unless it matches the resource's and was therefore set "
+ "explicitly by the user. (RFC7230 3.3.1, RFC7230 3.3.2)"),
+ Client = raw_open(Config),
+ ok = raw_send(Client, [
+ "GET /resp/reply3/304 HTTP/1.1\r\n"
+ "Host: localhost\r\n"
+ "\r\n"]),
+ {_, 304, _, Rest} = cow_http:parse_status_line(raw_recv_head(Client)),
+ {Headers, <<>>} = cow_http:parse_headers(Rest),
+ false = lists:keyfind(<<"content-length">>, 1, Headers),
+ ok.
+
%%% @todo CONNECT no_content_length_in_2xx_response_to_connect_request(Config) ->
%no_transfer_encoding_in_100_response(Config) ->
%no_transfer_encoding_in_101_response(Config) ->