yuanbiao
/
emqx
1
0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Match test case for last change

This commit is contained in:
周子博 2018-09-20 17:19:21 +08:00
parent 768d1786c7
commit 2c350bf5fb
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
test/emqx_keepalive_SUITE.erl
View File

@ -26,17 +26,18 @@ groups() -> [{keepalive, [], [t_keepalive]}].
%%-------------------------------------------------------------------- %%--------------------------------------------------------------------
t_keepalive(_) -> t_keepalive(_) ->
{ok, KA} = emqx_keepalive:start(fun() -> {ok, 1} end, 1, {keepalive, timeout}), {ok, KA} = emqx_keepalive:start(1, {keepalive, timeout}),
[resumed, timeout] = lists:reverse(keepalive_recv(KA, [])). resumed = keepalive_recv(KA, 100),
timeout = keepalive_recv(KA, 2000).
keepalive_recv(KA, Acc) -> keepalive_recv(KA, MockInterval) ->
receive receive
{keepalive, timeout} -> {keepalive, timeout} ->
case emqx_keepalive:check(KA) of case emqx_keepalive:check(KA, erlang:system_time(millisecond) - MockInterval) of
{ok, KA1} -> keepalive_recv(KA1, [resumed | Acc]); {ok, _} -> resumed;
{error, timeout} -> [timeout | Acc] {error, timeout} -> timeout
end end
after 4000 -> after 4000 ->
Acc error
end. end.