diff options
author | Loïc Hoguin <[email protected]> | 2018-11-21 10:47:31 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2018-11-21 10:47:31 +0100 |
commit | 6058800abb409dfc9074eecf7d594d109891c7e7 (patch) | |
tree | d605c07d29c9686f3da66766dcc1e18a02f15217 /test/rfc7231_SUITE.erl | |
parent | dc240adc1edf70d9d4aad101ae9d40acdacff3c2 (diff) | |
download | cowboy-6058800abb409dfc9074eecf7d594d109891c7e7.tar.gz cowboy-6058800abb409dfc9074eecf7d594d109891c7e7.tar.bz2 cowboy-6058800abb409dfc9074eecf7d594d109891c7e7.zip |
Move another test from the old HTTP test suite
Diffstat (limited to 'test/rfc7231_SUITE.erl')
-rw-r--r-- | test/rfc7231_SUITE.erl | 18 |
1 files changed, 18 insertions, 0 deletions
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. |