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(_) ->
{ok, KA} = emqx_keepalive:start(fun() -> {ok, 1} end, 1, {keepalive, timeout}),
[resumed, timeout] = lists:reverse(keepalive_recv(KA, [])).
{ok, KA} = emqx_keepalive:start(1, {keepalive, timeout}),
resumed = keepalive_recv(KA, 100),
timeout = keepalive_recv(KA, 2000).
keepalive_recv(KA, Acc) ->
keepalive_recv(KA, MockInterval) ->
receive
{keepalive, timeout} ->
case emqx_keepalive:check(KA) of
{ok, KA1} -> keepalive_recv(KA1, [resumed | Acc]);
{error, timeout} -> [timeout | Acc]
case emqx_keepalive:check(KA, erlang:system_time(millisecond) - MockInterval) of
{ok, _} -> resumed;
{error, timeout} -> timeout
end
after 4000 ->
Acc
error
end.