aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2016-05-25 15:53:23 +0200
committerSiri Hansen <[email protected]>2016-05-26 15:08:27 +0200
commitef7b3e6494c434a6f3a99a21076ba08d282d8be5 (patch)
treeb98564fb04ee3765363c2c9555154256ab8c6a07
parentcabe113ee5e4a137e16ad2cf6c6a0bbb8889fdb6 (diff)
downloadotp-ef7b3e6494c434a6f3a99a21076ba08d282d8be5.tar.gz
otp-ef7b3e6494c434a6f3a99a21076ba08d282d8be5.tar.bz2
otp-ef7b3e6494c434a6f3a99a21076ba08d282d8be5.zip
Wait for process to die before next call
gen_server_SUITE:start often fails since a call which is expected to give 'noproc' error instead gives 'stopped' error. This happens when the call is done before the process is really dead. To overcome this problem, we now wait for the process exit before doing the call.
-rw-r--r--lib/stdlib/test/gen_server_SUITE.erl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/stdlib/test/gen_server_SUITE.erl b/lib/stdlib/test/gen_server_SUITE.erl
index 3242511f4a..338cd3dc0a 100644
--- a/lib/stdlib/test/gen_server_SUITE.erl
+++ b/lib/stdlib/test/gen_server_SUITE.erl
@@ -185,7 +185,7 @@ start(Config) when is_list(Config) ->
gen_server:start({global, my_test_name},
gen_server_SUITE, [], []),
ok = gen_server:call({global, my_test_name}, stop),
- ct:sleep(1),
+ busy_wait_for_process(Pid4,600),
{'EXIT', {noproc,_}} = (catch gen_server:call(Pid4, started_p, 10)),
%% global register linked
@@ -214,7 +214,7 @@ start(Config) when is_list(Config) ->
gen_server:start({via, dummy_via, my_test_name},
gen_server_SUITE, [], []),
ok = gen_server:call({via, dummy_via, my_test_name}, stop),
- ct:sleep(1),
+ busy_wait_for_process(Pid6,600),
{'EXIT', {noproc,_}} = (catch gen_server:call(Pid6, started_p, 10)),
%% via register linked