From 6058800abb409dfc9074eecf7d594d109891c7e7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Wed, 21 Nov 2018 10:47:31 +0100 Subject: Move another test from the old HTTP test suite --- test/rfc7231_SUITE.erl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'test/rfc7231_SUITE.erl') diff --git a/test/rfc7231_SUITE.erl b/test/rfc7231_SUITE.erl index 2bd5bb1..642429b 100644 --- a/test/rfc7231_SUITE.erl +++ b/test/rfc7231_SUITE.erl @@ -898,5 +898,23 @@ date_5xx(Config) -> {_, _} = lists:keyfind(<<"date">>, 1, Headers), ok. +server_header(Config) -> + doc("An origin server may generate a server header field. " + "Cowboy generates a small one by default. (RFC7231 7.4.2)"), + ConnPid = gun_open(Config), + Ref = gun:get(ConnPid, "/"), + {response, _, 200, Headers} = gun:await(ConnPid, Ref), + {_, <<"Cowboy">>} = lists:keyfind(<<"server">>, 1, Headers), + ok. + +server_header_override(Config) -> + doc("An origin server may generate a server header field. " + "Cowboy allows the user to override the default. (RFC7231 7.4.2)"), + ConnPid = gun_open(Config), + Ref = gun:get(ConnPid, "/resp/set_resp_header_server"), + {response, _, 200, Headers} = gun:await(ConnPid, Ref), + {_, <<"nginx">>} = lists:keyfind(<<"server">>, 1, Headers), + ok. + %% @todo It's worth revisiting this RFC in the context of cowboy_rest %% to ensure the state machine is doing what's expected by the RFC. -- cgit v1.2.3