1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2018-2024. All Rights Reserved.
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%% http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%%
%% %CopyrightEnd%
%%
-ifndef(socket_test_evaluator).
-define(socket_test_evaluator, true).
-record(ev, {name :: string(),
pid :: pid(),
mref :: reference()}).
-define(SEV, socket_test_evaluator).
-define(PROXY, socket_test_ev_proxy).
-define(SEV_START(N, S, IS), ?SEV:start(N, S, IS)).
-define(SEV_AWAIT_FINISH(Evs), ?SEV:await_finish(Evs)).
-define(SEV_ANNOUNCE_START(To), ?SEV:announce_start(To)).
-define(SEV_ANNOUNCE_START(To, Ex), ?SEV:announce_start(To, Ex)).
-define(SEV_ANNOUNCE_CONTINUE(To, S), ?SEV:announce_continue(To, S)).
-define(SEV_ANNOUNCE_CONTINUE(To, S, Ex), ?SEV:announce_continue(To, S, Ex)).
-define(SEV_ANNOUNCE_READY(To, S), ?SEV:announce_ready(To, S)).
-define(SEV_ANNOUNCE_READY(To, S, Ex), ?SEV:announce_ready(To, S, Ex)).
-define(SEV_ANNOUNCE_TERMINATE(To), ?SEV:announce_terminate(To)).
-define(SEV_AWAIT_START(), ?SEV:await_start()).
-define(SEV_AWAIT_START(P), ?SEV:await_start(P)).
-define(SEV_AWAIT_CONTINUE(F, N, S), ?SEV:await_continue(F, N, S)).
-define(SEV_AWAIT_CONTINUE(F, N, S, Ps), ?SEV:await_continue(F, N, S, Ps)).
-define(SEV_AWAIT_READY(F, N, S), ?SEV:await_ready(F, N, S)).
-define(SEV_AWAIT_READY(F, N, S, Ps), ?SEV:await_ready(F, N, S, Ps)).
-define(SEV_AWAIT_TERMINATE(F, N), ?SEV:await_terminate(F, N)).
-define(SEV_AWAIT_TERMINATE(F, N, Ps), ?SEV:await_terminate(F, N, Ps)).
-define(SEV_AWAIT_TERMINATION(P), ?SEV:await_termination(P)).
-define(SEV_AWAIT_TERMINATION(P, R), ?SEV:await_termination(P, R)).
-define(SEV_IPRINT(F, A), ?SEV:iprint(F, A)).
-define(SEV_IPRINT(F), ?SEV_IPRINT(F, [])).
-define(SEV_EPRINT(F, A), ?SEV:eprint(F, A)).
-define(SEV_EPRINT(F), ?SEV_EPRINT(F, [])).
-define(SEV_SLEEP(T), #{desc => "sleep",
cmd => fun(_) ->
?SLEEP(T),
ok
end}).
-define(SEV_FINISH_NORMAL, #{desc => "finish",
cmd => fun(_) ->
{ok, normal}
end}).
-define(PPING(N), ?PROXY:ping((N))).
-define(PEXEC(F), ?PROXY:exec((F))).
-define(PPROCESS_INFO(P), ?PROXY:process_info((P))).
-define(PPROCESS_INFO(P, I), ?PROXY:process_info((P), (I))).
-endif. % -ifdef(socket_test_evaluator).
|
