diff options
author | Peter Andersson <[email protected]> | 2013-09-01 23:36:24 +0200 |
---|---|---|
committer | Peter Andersson <[email protected]> | 2013-09-03 17:02:14 +0200 |
commit | 376da624578485aae6160d8ee327330d58613fae (patch) | |
tree | f97b792846560be7998fea40bdd9aa10e2dd56bd /lib/common_test/test/ct_pre_post_test_io_SUITE_data | |
parent | 112b1f795ccd573a612208269e9b4937865445b5 (diff) | |
download | otp-376da624578485aae6160d8ee327330d58613fae.tar.gz otp-376da624578485aae6160d8ee327330d58613fae.tar.bz2 otp-376da624578485aae6160d8ee327330d58613fae.zip |
Find and fix minor bugs
Diffstat (limited to 'lib/common_test/test/ct_pre_post_test_io_SUITE_data')
-rw-r--r-- | lib/common_test/test/ct_pre_post_test_io_SUITE_data/cth_ctrl.erl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/common_test/test/ct_pre_post_test_io_SUITE_data/cth_ctrl.erl b/lib/common_test/test/ct_pre_post_test_io_SUITE_data/cth_ctrl.erl index 89f1734491..a9ea7b14dd 100644 --- a/lib/common_test/test/ct_pre_post_test_io_SUITE_data/cth_ctrl.erl +++ b/lib/common_test/test/ct_pre_post_test_io_SUITE_data/cth_ctrl.erl @@ -32,12 +32,19 @@ proceed() -> %% Hook functions %%-------------------------------------------------------------------- init(_Id, _Opts) -> + case lists:keyfind(sasl, 1, application:which_applications()) of + false -> + exit(sasl_not_started); + _Else -> + ok + end, WhoAmI = self(), DispPid = spawn_link(fun() -> dispatcher(WhoAmI) end), register(?MODULE, DispPid), io:format(user, - "~n~n+++ Startup finished, call ~w:proceed() to run tests!~n~n", - [?MODULE]), + "~n~n+++ Startup of ~w on ~p finished, " + "call ~w:proceed() to run tests...~n", + [?MODULE,node(),?MODULE]), start_external_logger(cth_logger), receive {?MODULE,proceed} -> ok @@ -49,7 +56,7 @@ init(_Id, _Opts) -> terminate(_State) -> io:format(user, - "~n~n+++ Tests finished, call ~w:proceed() to shut down!~n~n", + "~n~n+++ Tests finished, call ~w:proceed() to shut down...~n", [?MODULE]), receive {?MODULE,proceed} -> ok |