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/http_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/http_SUITE.erl')
| -rw-r--r-- | test/http_SUITE.erl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/test/http_SUITE.erl b/test/http_SUITE.erl index 28118a6..e3ac553 100644 --- a/test/http_SUITE.erl +++ b/test/http_SUITE.erl @@ -556,19 +556,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 |