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

openSUSE Build Service is sponsored by