umgeher/cowboy
0
Fork 0
mirror of https://github.com/ninenines/cowboy.git synced 2025-07-14 12:20:24 +00:00
Code Issues Wiki Activity

Move another test from the old HTTP test suite

Browse source
This commit is contained in:
Loïc Hoguin 2018-11-21 10:47:31 +01:00
parent dc240adc1e
commit 6058800abb
No known key found for this signature in database
GPG key ID: 8A9DF795F6FED764
3 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

18
test/rfc7231_SUITE.erl
View file

@ -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.