diff options
| author | Hans Nilsson <[email protected]> | 2016-04-13 15:35:41 +0200 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2016-04-29 13:17:52 +0200 |
| commit | 8bfcd11948895164d1841c0c00450b0e26cb9927 (patch) | |
| tree | ca2541cbf9017aec0f10a0675548b84cc5196307 /lib/ssh/test/ssh_test_lib.hrl | |
| parent | 020e62c9619b518620d216cf0caef55fe129d4c3 (diff) | |
| download | otp-8bfcd11948895164d1841c0c00450b0e26cb9927.tar.gz otp-8bfcd11948895164d1841c0c00450b0e26cb9927.tar.bz2 otp-8bfcd11948895164d1841c0c00450b0e26cb9927.zip | |
ssh: break out test macro ?wait_match into new ssh_test_lib.hrl
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) ). + |