diff options
author | Peter Andersson <[email protected]> | 2013-08-30 14:52:08 +0200 |
---|---|---|
committer | Peter Andersson <[email protected]> | 2013-09-02 12:14:01 +0200 |
commit | 112b1f795ccd573a612208269e9b4937865445b5 (patch) | |
tree | a4aec3546421c6637d2c23ffbde736d1f134941d /lib/common_test/test/ct_test_support.erl | |
parent | 32fae66768d11bc62ff75705e1d5a6ebe2978432 (diff) | |
download | otp-112b1f795ccd573a612208269e9b4937865445b5.tar.gz otp-112b1f795ccd573a612208269e9b4937865445b5.tar.bz2 otp-112b1f795ccd573a612208269e9b4937865445b5.zip |
Add test suite
Diffstat (limited to 'lib/common_test/test/ct_test_support.erl')
-rw-r--r-- | lib/common_test/test/ct_test_support.erl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/common_test/test/ct_test_support.erl b/lib/common_test/test/ct_test_support.erl index 4132995bf6..5512b9c242 100644 --- a/lib/common_test/test/ct_test_support.erl +++ b/lib/common_test/test/ct_test_support.erl @@ -38,7 +38,7 @@ -export([start_slave/3, slave_stop/1]). --export([ct_test_halt/1]). +-export([ct_test_halt/1, ct_rpc/2]). -include_lib("kernel/include/file.hrl"). @@ -378,6 +378,16 @@ wait_for_ct_stop(Retries, CTNode) -> end. %%%----------------------------------------------------------------- +%%% ct_rpc/1 +ct_rpc({M,F,A}, Config) -> + CTNode = proplists:get_value(ct_node, Config), + Level = proplists:get_value(trace_level, Config), + test_server:format(Level, "~nCalling ~w:~w(~p) on ~p...", + [M,F,A, CTNode]), + rpc:call(CTNode, M, F, A). + + +%%%----------------------------------------------------------------- %%% EVENT HANDLING handle_event(EH, Event) -> |