diff options
| author | Hans Nilsson <[email protected]> | 2016-05-02 13:09:04 +0200 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2016-05-02 13:09:04 +0200 |
| commit | 4921b2704b761a7dd87a17494a8b8336237a240a (patch) | |
| tree | 2e08ed3b14befc71a5f9181fcdfa23c11b6d9581 /lib/ssh/test/ssh_test_lib.hrl | |
| parent | 8a7789a5814dad194310d08dafc4421d22b3c89f (diff) | |
| parent | 8bfcd11948895164d1841c0c00450b0e26cb9927 (diff) | |
| download | otp-4921b2704b761a7dd87a17494a8b8336237a240a.tar.gz otp-4921b2704b761a7dd87a17494a8b8336237a240a.tar.bz2 otp-4921b2704b761a7dd87a17494a8b8336237a240a.zip | |
Merge branch 'hans/ssh/cuddle_tests'
Conflicts:
lib/ssh/test/ssh_algorithms_SUITE.erl
Diffstat (limited to 'lib/ssh/test/ssh_test_lib.hrl')
| -rw-r--r-- | lib/ssh/test/ssh_test_lib.hrl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/lib/ssh/test/ssh_test_lib.hrl b/lib/ssh/test/ssh_test_lib.hrl new file mode 100644 index 0000000000..7cb7edeaa8 --- /dev/null +++ b/lib/ssh/test/ssh_test_lib.hrl @@ -0,0 +1,27 @@ +%%------------------------------------------------------------------------- +%% Help macro +%%------------------------------------------------------------------------- +-define(wait_match(Pattern, FunctionCall, Bind, Timeout, Ntries), + Bind = + (fun() -> + F = fun(N, F1) -> + case FunctionCall of + Pattern -> Bind; + _ when N>0 -> + ct:pal("Must sleep ~p ms at ~p:~p",[Timeout,?MODULE,?LINE]), + timer:sleep(Timeout), + F1(N-1, F1); + Other -> + ct:fail("Unexpected ~p:~p ~p",[?MODULE,?LINE,Other]) + end + end, + F(Ntries, F) + end)() + ). + +-define(wait_match(Pattern, FunctionCall, Timeout, Ntries), ?wait_match(Pattern, FunctionCall, ok, Timeout, Ntries)). + +-define(wait_match(Pattern, FunctionCall, Bind), ?wait_match(Pattern, FunctionCall, Bind, 500, 10) ). + +-define(wait_match(Pattern, FunctionCall), ?wait_match(Pattern, FunctionCall, ok) ). + |