diff options
Diffstat (limited to 'erts/emulator/test/z_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/z_SUITE.erl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/erts/emulator/test/z_SUITE.erl b/erts/emulator/test/z_SUITE.erl index 5b2e77dfa2..cb178704eb 100644 --- a/erts/emulator/test/z_SUITE.erl +++ b/erts/emulator/test/z_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2006-2020. All Rights Reserved. +%% Copyright Ericsson AB 2006-2022. 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. @@ -169,7 +169,7 @@ schedulers_alive(Config) when is_list(Config) -> enabled -> ok end, erts_debug:set_internal_state(available_internal_state, true), - %% node_and_dist_references will use emulator interal thread blocking... + %% node_and_dist_references will use emulator internal thread blocking... erts_debug:get_internal_state(node_and_dist_references), erts_debug:set_internal_state(available_internal_state, false), io:format("Testing not blocked~n"), @@ -330,8 +330,9 @@ check_io_debug_test() -> has_gethost() -> has_gethost(erlang:ports()). has_gethost([P|T]) -> - case erlang:port_info(P, name) of - {name,"inet_gethost"++_} -> + {name, Name} = erlang:port_info(P, name), + case filename:basename(Name) of + "inet_gethost"++_ -> true; _ -> has_gethost(T) @@ -346,7 +347,7 @@ lc_graph(Config) when is_list(Config) -> ok. leaked_processes(Config) when is_list(Config) -> - %% Replace the defualt timetrap with a timetrap with + %% Replace the default timetrap with a timetrap with %% known pid. test_server:timetrap_cancel(), Dog = test_server:timetrap(test_server:minutes(5)), |