File 0900-megaco-test-Make-sure-node-stop-does-not-hang.patch of Package erlang
From 8a6c8d9054002d1c48c98f0243e46e38e771d25f Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Thu, 10 Feb 2022 09:16:27 +0100
Subject: [PATCH] [megaco|test] Make sure node stop does not hang
---
lib/megaco/test/megaco_test_lib.erl | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lib/megaco/test/megaco_test_lib.erl b/lib/megaco/test/megaco_test_lib.erl
index 44ada551b2..13d2159a0e 100644
--- a/lib/megaco/test/megaco_test_lib.erl
+++ b/lib/megaco/test/megaco_test_lib.erl
@@ -2360,7 +2360,8 @@ stop_node(Node, File, Line) when is_atom(Node) ->
stop_node(Node) ->
p("try stop node ~p", [Node]),
erlang:monitor_node(Node, true),
- rpc:call(Node, erlang, halt, []),
+ %% Make sure we do not hang in case 'Node' has problems
+ erlang:spawn(fun() -> rpc:call(Node, erlang, halt, []) end),
receive
{nodedown, Node} ->
p("node ~p stopped", [Node]),
--
2.34.1