test(sys_mon): add test for closed port

This commit is contained in:
Thales Macedo Garitezi 2022-02-24 15:13:18 -03:00
parent d89925ce7b
commit 427866f8ad
No known key found for this signature in database
GPG Key ID: DD279F8152A9B6DD
1 changed files with 15 additions and 0 deletions

View File

@ -125,6 +125,16 @@ t_sys_mon(_Config) ->
validate_sys_mon_info(PidOrPort, SysMonName, ValidateInfo, InfoOrPort) validate_sys_mon_info(PidOrPort, SysMonName, ValidateInfo, InfoOrPort)
end, ?INPUTINFO). end, ?INPUTINFO).
%% Existing port, but closed.
t_sys_mon_dead_port(_Config) ->
process_flag(trap_exit, true),
Port = dead_port(),
{PidOrPort, SysMonName, ValidateInfo, InfoOrPort} =
{self(), busy_port,
fmt("busy_port warning: suspid = ~p, port = ~p",
[self(), Port]), Port},
validate_sys_mon_info(PidOrPort, SysMonName, ValidateInfo, InfoOrPort).
t_sys_mon2(_Config) -> t_sys_mon2(_Config) ->
?SYSMON ! {timeout, ignored, reset}, ?SYSMON ! {timeout, ignored, reset},
?SYSMON ! {ignored}, ?SYSMON ! {ignored},
@ -156,3 +166,8 @@ some_function(Parent, _Arg2) ->
stop -> stop ->
ok ok
end. end.
dead_port() ->
Port = erlang:open_port({spawn, "ls"}, []),
catch exit(Port, kill),
Port.