File 2792-Apply-patch-by-dgud-to-handle-async-startup.patch of Package erlang

From bdbd83b8a7fb437e61a494f9f2115583dea87c86 Mon Sep 17 00:00:00 2001
From: Benedikt Reinartz <filmor@gmail.com>
Date: Thu, 19 Jan 2023 10:23:31 +0100
Subject: [PATCH 12/12] Apply patch by @dgud to handle async startup

---
 lib/observer/test/observer_SUITE.erl | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/lib/observer/test/observer_SUITE.erl b/lib/observer/test/observer_SUITE.erl
index e5d9e6cc80..0aef5832d2 100644
--- a/lib/observer/test/observer_SUITE.erl
+++ b/lib/observer/test/observer_SUITE.erl
@@ -60,7 +60,7 @@ groups() ->
        process_win,
        table_win,
        port_win_when_tab_not_initiated,
-       % blocking_start,
+       blocking_start,
        remote_node
       ]
      }].
@@ -474,20 +474,21 @@ table_win(Config) when is_list(Config) ->
 remote_node(_Config) ->
     {ok, Peer, Node} = ?CT_PEER(),
     ok = observer:start(Node),
+    timer:sleep(1000),
     Node = observer_wx:get_active_node(),
     observer:stop(),
     ensure_observer_stopped(),
     peer:stop(Peer).
 
 blocking_start(_Config) ->
-    Pid = spawn(fun observer:start_and_wait/0),
-    SpawnerRef = monitor(process, Pid),
+    {Pid, SpawnerRef} = spawn_monitor(fun observer:start_and_wait/0),
+    timer:sleep(1000),
     ObserverRef = monitor(process, observer),
     receive
-        {'DOWN', ObserverRef, _, _, _} ->
-            error(observer_stopped_unexpectedly);
-        {'DOWN', SpawnerRef, _, _, _} ->
-            error(spawner_stopped_unexpectedly)
+        {'DOWN', ObserverRef, _, _, Reason} ->
+            error({observer_stopped_unexpectedly, Reason});
+        {'DOWN', SpawnerRef, _, _, Reason} ->
+            error({spawner_stopped_unexpectedly, Reason})
     after
         500 ->
             ok
-- 
2.35.3

openSUSE Build Service is sponsored by