diff options
| author | Peter Andersson <[email protected]> | 2011-04-08 16:26:39 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2011-04-20 22:32:38 +0200 |
| commit | 34208aa4201b169249c03a188afb5076dc4804a2 (patch) | |
| tree | 5435fc965eb40e9898bef1ff28aefc1ada265cba /lib/common_test/test | |
| parent | 1b51729df1a5c9678beb73318b8cf2a12b0e145d (diff) | |
| download | otp-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.erl | 10 |
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]), |