mirror of
https://github.com/fluxerapp/fluxer
synced 2026-10-17 21:15:32 +09:00
43 lines
1.3 KiB
Erlang
43 lines
1.3 KiB
Erlang
%% SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
-module(process_registry_integration_tests).
|
|
-typing([eqwalizer]).
|
|
-include_lib("eunit/include/eunit.hrl").
|
|
|
|
-define(REGISTRY_TABLE, process_registry_table).
|
|
|
|
force_stop_process_kills_unresponsive_test_() ->
|
|
{timeout, 15, fun() ->
|
|
Pid = spawn(fun trapped_wait_loop/0),
|
|
?assert(process_liveness:is_alive(Pid)),
|
|
process_registry:force_stop_process(Pid),
|
|
timer:sleep(100),
|
|
?assertEqual(false, process_liveness:is_alive(Pid))
|
|
end}.
|
|
|
|
register_and_monitor_duplicate_stops_loser_test_() ->
|
|
{timeout, 15, fun() ->
|
|
process_registry:init(),
|
|
Key = {test_reg, 1007},
|
|
WinnerPid = spawn_sleep(5000),
|
|
ets:insert(?REGISTRY_TABLE, {Key, WinnerPid}),
|
|
LoserPid = spawn(fun trapped_wait_loop/0),
|
|
?assert(process_liveness:is_alive(LoserPid)),
|
|
Result = process_registry:register_and_monitor(Key, LoserPid, #{}),
|
|
?assertMatch({ok, WinnerPid, _, _}, Result),
|
|
timer:sleep(100),
|
|
?assertEqual(false, process_liveness:is_alive(LoserPid)),
|
|
process_registry:registry_unregister(Key)
|
|
end}.
|
|
|
|
spawn_sleep(Milliseconds) ->
|
|
spawn(fun() -> timer:sleep(Milliseconds) end).
|
|
|
|
trapped_wait_loop() ->
|
|
process_flag(trap_exit, true),
|
|
receive
|
|
never_arrives -> ok
|
|
after infinity ->
|
|
ok
|
|
end.
|