diff options
author | Loïc Hoguin <[email protected]> | 2018-11-21 13:56:33 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2018-11-21 14:06:57 +0100 |
commit | 84e474d2126118730813f85208ce443ac1343474 (patch) | |
tree | 8d3a544bd3905e2c0461dfb0cf6d7dd640c257d3 /test/old_http_SUITE.erl | |
parent | dc52ebe4407ac917bbac127a9feae756b44ef940 (diff) | |
download | cowboy-84e474d2126118730813f85208ce443ac1343474.tar.gz cowboy-84e474d2126118730813f85208ce443ac1343474.tar.bz2 cowboy-84e474d2126118730813f85208ce443ac1343474.zip |
Move one more old HTTP test case
Diffstat (limited to 'test/old_http_SUITE.erl')
-rw-r--r-- | test/old_http_SUITE.erl | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/test/old_http_SUITE.erl b/test/old_http_SUITE.erl index 6d7c2c8..ff0d4b2 100644 --- a/test/old_http_SUITE.erl +++ b/test/old_http_SUITE.erl @@ -102,14 +102,6 @@ init_dispatch(_) -> %% Convenience functions. -do_raw(Data, Config) -> - Client = raw_open(Config), - ok = raw_send(Client, Data), - case catch raw_recv_head(Client) of - {'EXIT', _} -> closed; - Resp -> element(2, cow_http:parse_status_line(Resp)) - end. - do_get(Path, Config) -> ConnPid = gun_open(Config), Ref = gun:get(ConnPid, Path), @@ -135,34 +127,6 @@ error_init_after_reply(Config) -> {response, nofin, 200, _} = gun:await(ConnPid, Ref), ok. -keepalive_nl(Config) -> - ConnPid = gun_open(Config), - Refs = [begin - Ref = gun:get(ConnPid, "/", [{<<"connection">>, <<"keep-alive">>}]), - dbg_send_raw(ConnPid, <<"\r\n">>), - Ref - end || _ <- lists:seq(1, 10)], - _ = [begin - {response, nofin, 200, Headers} = gun:await(ConnPid, Ref), - false = lists:keymember(<<"connection">>, 1, Headers) - end || Ref <- Refs], - ok. - -keepalive_stream_loop(Config) -> - ConnPid = gun_open(Config), - Refs = [begin - Ref = gun:post(ConnPid, "/loop_stream_recv", - [{<<"content-type">>, <<"application/octet-stream">>}]), - _ = [gun:data(ConnPid, Ref, nofin, << ID:32 >>) - || ID <- lists:seq(1, 250)], - gun:data(ConnPid, Ref, fin, <<>>), - Ref - end || _ <- lists:seq(1, 10)], - _ = [begin - {response, fin, 200, _} = gun:await(ConnPid, Ref) - end || Ref <- Refs], - ok. - rest_param_all(Config) -> ConnPid = gun_open(Config), %% Accept without param. @@ -361,14 +325,3 @@ rest_resource_etags_if_none_match(Config) -> [{<<"if-none-match">>, ETag}]), {Ret, Type} end || {Status, ETag, Type} <- Tests]. - -dbg_send_raw(ConnPid, Data) -> - #{ - socket := Socket, - transport := Transport - } = gun:info(ConnPid), - _ = case Transport of - tcp -> gen_tcp:send(Socket, Data); - tls -> ssl:send(Socket, Data) - end, - ok. |