aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/test
diff options
context:
space:
mode:
authorPeter Andersson <[email protected]>2011-04-08 16:26:39 +0200
committerPeter Andersson <[email protected]>2011-04-20 22:32:38 +0200
commit34208aa4201b169249c03a188afb5076dc4804a2 (patch)
tree5435fc965eb40e9898bef1ff28aefc1ada265cba /lib/common_test/test
parent1b51729df1a5c9678beb73318b8cf2a12b0e145d (diff)
downloadotp-34208aa4201b169249c03a188afb5076dc4804a2.tar.gz
otp-34208aa4201b169249c03a188afb5076dc4804a2.tar.bz2
otp-34208aa4201b169249c03a188afb5076dc4804a2.zip
Fix problem with CT hook start error causing IO to be sent to wrong group leader process.
Diffstat (limited to 'lib/common_test/test')
-rw-r--r--lib/common_test/test/ct_test_support.erl10
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/common_test/test/ct_test_support.erl b/lib/common_test/test/ct_test_support.erl
index de95f05004..bb142696fa 100644
--- a/lib/common_test/test/ct_test_support.erl
+++ b/lib/common_test/test/ct_test_support.erl
@@ -226,6 +226,16 @@ run(Opts, Config) ->
[Opts, CTNode]),
Result1 = rpc:call(CTNode, ct, run_test, [Opts]),
+ case rpc:call(CTNode, erlang, whereis, [ct_util_server]) of
+ undefined ->
+ ok;
+ _ ->
+ test_server:format(Level,
+ "ct_util_server not stopped on ~p yet, waiting 5 s...~n",
+ [CTNode]),
+ timer:sleep(5000),
+ undefined = rpc:call(CTNode, erlang, whereis, [ct_util_server])
+ end,
%% use run_test interface (simulated)
test_server:format(Level, "Saving start opts on ~p: ~p~n", [CTNode,Opts]),
rpc:call(CTNode, application, set_env, [common_test, run_test_start_opts, Opts]),