123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- -module(syn_test_event_handler).
- -behaviour(syn_event_handler).
- -export([on_process_exit/4]).
- -export([on_group_process_exit/4]).
- -export([resolve_registry_conflict/3]).
- -spec on_process_exit(
- Name :: any(),
- Pid :: pid(),
- Meta :: any(),
- Reason :: any()
- ) -> any().
- on_process_exit(_Name, _Pid, {PidId, TestPid}, _Reason) when is_pid(TestPid) ->
- TestPid ! {received_event_on, PidId};
- on_process_exit(_Name, _Pid, _Meta, _Reason) ->
- ok.
- -spec on_group_process_exit(
- GroupName :: any(),
- Pid :: pid(),
- Meta :: any(),
- Reason :: any()
- ) -> any().
- on_group_process_exit(_GroupName, _Pid, {PidId, TestPid}, _Reason) when is_pid(TestPid) ->
- TestPid ! {received_event_on, PidId};
- on_group_process_exit(_GroupName, _Pid, _Meta, _Reason) ->
- ok.
- -spec resolve_registry_conflict(
- Name :: any(),
- {Pid1 :: pid(), Meta1 :: any()},
- {Pid2 :: pid(), Meta2 :: any()}
- ) -> PidToKeep :: pid().
- resolve_registry_conflict(_Name, {LocalPid, keep_this_one}, {_RemotePid, _RemoteMeta}) ->
- LocalPid;
- resolve_registry_conflict(_Name, {_LocalPid, _LocalMeta}, {RemotePid, keep_this_one}) ->
- RemotePid;
- resolve_registry_conflict(_Name, {LocalPid, _LocalMeta}, {_RemotePid, _RemoteMeta}) ->
- LocalPid.
|