aboutsummaryrefslogtreecommitdiffstats
path: root/test/http_SUITE.erl
diff options
context:
space:
mode:
authorLoïc Hoguin <[email protected]>2018-11-14 17:10:26 +0100
committerLoïc Hoguin <[email protected]>2018-11-14 18:04:32 +0100
commit6f57405b5c775c4b3b60d0fde15c89e52cb91708 (patch)
tree75173c6aea32ddfed7fe756c49f0a20c1a1248bb /test/http_SUITE.erl
parentf0cae8dbcf8d07035be069860fc4b22f7577d154 (diff)
downloadcowboy-6f57405b5c775c4b3b60d0fde15c89e52cb91708.tar.gz
cowboy-6f57405b5c775c4b3b60d0fde15c89e52cb91708.tar.bz2
cowboy-6f57405b5c775c4b3b60d0fde15c89e52cb91708.zip
Allow disabling keep-alive for HTTP/1.0 connections
Diffstat (limited to 'test/http_SUITE.erl')
-rw-r--r--test/http_SUITE.erl28
1 files changed, 28 insertions, 0 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl
index a8d3503..b66b641 100644
--- a/test/http_SUITE.erl
+++ b/test/http_SUITE.erl
@@ -21,6 +21,9 @@
-import(ct_helper, [get_remote_pid_tcp/1]).
-import(ct_helper, [name/0]).
-import(cowboy_test, [gun_open/1]).
+-import(cowboy_test, [raw_open/1]).
+-import(cowboy_test, [raw_send/2]).
+-import(cowboy_test, [raw_recv_head/1]).
all() -> [{group, clear}].
@@ -33,6 +36,31 @@ init_routes(_) -> [
]}
].
+http10_keepalive_false(Config) ->
+ doc("Confirm the option {http10_keepalive, false} disables keep-alive "
+ "completely for HTTP/1.0 connections."),
+ {ok, _} = cowboy:start_clear(name(), [{port, 0}], #{
+ env => #{dispatch => cowboy_router:compile(init_routes(Config))},
+ http10_keepalive => false
+ }),
+ Port = ranch:get_port(name()),
+ Keepalive = "GET / HTTP/1.0\r\nhost: localhost\r\nConnection: keep-alive\r\n\r\n",
+ Client = raw_open([{type, tcp}, {port, Port}, {opts, []}|Config]),
+ ok = raw_send(Client, Keepalive),
+ _ = case catch raw_recv_head(Client) of
+ {'EXIT', _} -> error(closed);
+ Data ->
+ %% Cowboy always advertises itself as HTTP/1.1.
+ {'HTTP/1.1', 200, _, Rest} = cow_http:parse_status_line(Data),
+ {Headers, _} = cow_http:parse_headers(Rest),
+ {_, <<"close">>} = lists:keyfind(<<"connection">>, 1, Headers)
+ end,
+ ok = raw_send(Client, Keepalive),
+ case catch raw_recv_head(Client) of
+ {'EXIT', _} -> closed;
+ _ -> error(not_closed)
+ end.
+
idle_timeout_infinity(Config) ->
doc("Ensure the idle_timeout option accepts the infinity value."),
{ok, _} = cowboy:start_clear(name(), [{port, 0}], #{