File 2790-Reorder-tests-and-try-to-fix-blocking-test.patch of Package erlang
From 5f41a3988ba7391faf8377a1d86512a6c947c213 Mon Sep 17 00:00:00 2001
From: Benedikt Reinartz <filmor@gmail.com>
Date: Tue, 17 Jan 2023 20:10:58 +0100
Subject: [PATCH 10/12] Reorder tests and try to fix blocking test
---
lib/observer/test/observer_SUITE.erl | 21 +++++++++++++--------
1 file changed, 13 insertions(+), 8 deletions(-)
diff --git a/lib/observer/test/observer_SUITE.erl b/lib/observer/test/observer_SUITE.erl
index c572a7a331..daa7dc8724 100644
--- a/lib/observer/test/observer_SUITE.erl
+++ b/lib/observer/test/observer_SUITE.erl
@@ -60,8 +60,8 @@ groups() ->
process_win,
table_win,
port_win_when_tab_not_initiated,
- remote_node,
- blocking_start
+ blocking_start,
+ remote_node
]
}].
@@ -480,11 +480,14 @@ remote_node(_Config) ->
peer:stop(Peer).
blocking_start(_Config) ->
- _Pid = spawn(fun observer:start_and_wait/0),
- MonitorRef = monitor(process, observer),
+ Pid = spawn(fun observer:start_and_wait/0),
+ SpawnerRef = monitor(process, Pid),
+ ObserverRef = monitor(process, observer),
receive
- {'DOWN', MonitorRef, _, _, _} ->
- error(observer_stopped_unexpectedly)
+ {'DOWN', ObserverRef, _, _, _} ->
+ error(observer_stopped_unexpectedly);
+ {'DOWN', SpawnerRef, _, _, _} ->
+ error(spawner_stopped_unexpectedly)
after
500 ->
ok
@@ -492,12 +495,14 @@ blocking_start(_Config) ->
observer:stop(),
ensure_observer_stopped(),
receive
- {'DOWN', MonitorRef, _, _, _} ->
+ {'DOWN', ObserverRef, _, _, _} ->
ok
after
500 ->
error(observer_should_have_stopped)
- end.
+ end,
+ false = erlang:is_process_alive(Pid),
+ ok.
%% Test PR-1296/OTP-14151
%% Clicking a link to a port before the port tab has been activated the
--
2.35.3