1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- -module(syn_test_suite_helper).
- -export([start_slave/1, stop_slave/1]).
- -export([connect_node/1, disconnect_node/1]).
- -export([clean_after_test/0]).
- -export([start_process/0, start_process/1, start_process/2]).
- -export([kill_process/1]).
- -export([process_main/0]).
- -define(SYN_TEST_CONFIG_FILENAME, "syn-test.config").
- start_slave(NodeShortName) ->
- CodePath = code:get_path(),
- {ok, Node} = ct_slave:start(NodeShortName, [{boot_timeout, 10}]),
- true = rpc:call(Node, code, set_path, [CodePath]),
- {ok, Node}.
- stop_slave(NodeShortName) ->
- {ok, _} = ct_slave:stop(NodeShortName).
- connect_node(Node) ->
- net_kernel:connect_node(Node).
- disconnect_node(Node) ->
- erlang:disconnect_node(Node).
- clean_after_test() ->
- Nodes = [node() | nodes()],
-
- lists:foreach(fun(Node) ->
- ok = rpc:call(Node, syn, stop, []),
- ok = rpc:call(Node, application, stop, [mnesia])
- end, Nodes),
-
- mnesia:delete_schema(Nodes).
- start_process() ->
- Pid = spawn(fun process_main/0),
- Pid.
- start_process(Node) when is_atom(Node) ->
- Pid = spawn(Node, fun process_main/0),
- Pid;
- start_process(Loop) when is_function(Loop) ->
- Pid = spawn(Loop),
- Pid.
- start_process(Node, Loop) ->
- Pid = spawn(Node, Loop),
- Pid.
- kill_process(Pid) ->
- exit(Pid, kill).
- process_main() ->
- receive
- _ -> process_main()
- end.
|