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

test: use snabbkaffe retry macro

This commit is contained in:
Zaiming (Stone) Shi 2023-01-24 10:54:20 +01:00
parent 140cda2f13
commit 7575120ea6
1 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
apps/emqx/test/emqx_client_SUITE.erl
View File

@ -24,6 +24,7 @@
-include_lib("emqx/include/emqx_mqtt.hrl"). -include_lib("emqx/include/emqx_mqtt.hrl").
-include_lib("eunit/include/eunit.hrl"). -include_lib("eunit/include/eunit.hrl").
-include_lib("common_test/include/ct.hrl"). -include_lib("common_test/include/ct.hrl").
-include_lib("snabbkaffe/include/snabbkaffe.hrl").
-define(TOPICS, [ -define(TOPICS, [
<<"TopicA">>, <<"TopicA">>,
@ -43,7 +44,7 @@
<<"TopicA/#">> <<"TopicA/#">>
]). ]).
-define(WAIT(EXPR, ATTEMPTS), wait(fun() -> EXPR end, ATTEMPTS)). -define(WAIT(EXPR, ATTEMPTS), ?retry(1000, ATTEMPTS, EXPR)).
all() -> all() ->
[ [
@ -390,14 +391,3 @@ tls_certcn_as_clientid(TLSVsn, RequiredTLSVsn) ->
#{clientinfo := #{clientid := CN}} = emqx_cm:get_chan_info(CN), #{clientinfo := #{clientid := CN}} = emqx_cm:get_chan_info(CN),
confirm_tls_version(Client, RequiredTLSVsn), confirm_tls_version(Client, RequiredTLSVsn),
emqtt:disconnect(Client). emqtt:disconnect(Client).
wait(F, 1) ->
F();
wait(F, Attempts) when Attempts > 0 ->
try
F()
catch
_:_ ->
timer:sleep(1000),
wait(F, Attempts - 1)
end.