diff options
author | Loïc Hoguin <[email protected]> | 2023-12-13 17:24:48 +0100 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2023-12-14 15:25:25 +0100 |
commit | 67bd791dcc6138758a9f4d0a071f2369301c7373 (patch) | |
tree | 6f52d5ab186172f0b91d1e8c27f300071e6c4e93 /test/http2_SUITE.erl | |
parent | efb681d74982dd048638b00c3c275091ba1d4a2a (diff) | |
download | cowboy-67bd791dcc6138758a9f4d0a071f2369301c7373.tar.gz cowboy-67bd791dcc6138758a9f4d0a071f2369301c7373.tar.bz2 cowboy-67bd791dcc6138758a9f4d0a071f2369301c7373.zip |
Change send_timeout_close test to accomodate macOS
Diffstat (limited to 'test/http2_SUITE.erl')
-rw-r--r-- | test/http2_SUITE.erl | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/test/http2_SUITE.erl b/test/http2_SUITE.erl index 0444060..3f81ed7 100644 --- a/test/http2_SUITE.erl +++ b/test/http2_SUITE.erl @@ -448,7 +448,13 @@ send_timeout_close(Config) -> {<<":path">>, <<"/endless">>}, {<<"x-test-pid">>, pid_to_list(self())} ]), - ok = gen_tcp:send(ClientSocket, cow_http2:headers(1, fin, HeadersBlock)), + ok = gen_tcp:send(ClientSocket, [ + cow_http2:headers(1, fin, HeadersBlock), + %% Greatly increase the window to make sure we don't run + %% out of space before we get send timeouts. + cow_http2:window_update(10000000), + cow_http2:window_update(1, 10000000) + ]), %% Wait for the handler to start then get its pid, %% the remote connection's pid and socket. StreamPid = receive @@ -462,19 +468,19 @@ send_timeout_close(Config) -> [ServerSocket] = [PidOrPort || PidOrPort <- ServerLinks, is_port(PidOrPort)], %% Poll the socket repeatedly until it is closed by the server. WaitClosedFun = - fun F(T, Status) when T =< 0 -> - error({status, Status}); - F(T, _) -> - case prim_inet:getstatus(ServerSocket) of + fun F(T) when T =< 0 -> + error({status, prim_inet:getstatus(ServerSocket)}); + F(T) -> + Snooze = 100, + case inet:sockname(ServerSocket) of {error, _} -> - ok; - {ok, Status} -> - Snooze = 100, + timer:sleep(Snooze); + {ok, _} -> timer:sleep(Snooze), - F(T - Snooze, Status) + F(T - Snooze) end end, - ok = WaitClosedFun(2000, undefined), + ok = WaitClosedFun(2000), false = erlang:is_process_alive(StreamPid), false = erlang:is_process_alive(ServerPid) after |