diff options
author | Peter Andersson <[email protected]> | 2013-06-28 01:00:24 +0200 |
---|---|---|
committer | Peter Andersson <[email protected]> | 2013-06-28 01:00:24 +0200 |
commit | 1151a45d49e90383931c92433b15b754156b833d (patch) | |
tree | f45d29bb21b5e3b2d8c00b6efc1af414d0ea0684 /lib/common_test/test/ct_test_support.erl | |
parent | 8a0a09ef168210326b29273b20520aee339aaf40 (diff) | |
download | otp-1151a45d49e90383931c92433b15b754156b833d.tar.gz otp-1151a45d49e90383931c92433b15b754156b833d.tar.bz2 otp-1151a45d49e90383931c92433b15b754156b833d.zip |
Add test
OTP-11176
Diffstat (limited to 'lib/common_test/test/ct_test_support.erl')
-rw-r--r-- | lib/common_test/test/ct_test_support.erl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lib/common_test/test/ct_test_support.erl b/lib/common_test/test/ct_test_support.erl index 6bcac12326..4132995bf6 100644 --- a/lib/common_test/test/ct_test_support.erl +++ b/lib/common_test/test/ct_test_support.erl @@ -36,6 +36,8 @@ verify_events/3, verify_events/4, reformat/2, log_events/4, join_abs_dirs/2]). +-export([start_slave/3, slave_stop/1]). + -export([ct_test_halt/1]). -include_lib("kernel/include/file.hrl"). @@ -66,10 +68,14 @@ init_per_suite(Config, Level) -> start_slave(Config, Level). -start_slave(Config,Level) -> +start_slave(Config, Level) -> + start_slave(ct, Config, Level). + +start_slave(NodeName, Config, Level) -> [_,Host] = string:tokens(atom_to_list(node()), "@"), - test_server:format(0, "Trying to start ~s~n", ["ct@"++Host]), - case slave:start(Host, ct, []) of + test_server:format(0, "Trying to start ~s~n", + [atom_to_list(NodeName)++"@"++Host]), + case slave:start(Host, NodeName, []) of {error,Reason} -> test_server:fail(Reason); {ok,CTNode} -> @@ -77,7 +83,7 @@ start_slave(Config,Level) -> IsCover = test_server:is_cover(), if IsCover -> cover:start(CTNode); - true-> + true -> ok end, |