File 1785-Add-tests-and-documentation.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1785-Add-tests-and-documentation.patch of Package erlang

From 91564533a94492308442d7773fc1f023650cde50 Mon Sep 17 00:00:00 2001
From: Benedikt Reinartz <filmor@gmail.com>
Date: Tue, 13 Dec 2022 19:34:41 +0100
Subject: [PATCH 05/12] Add tests and documentation

---
 lib/observer/doc/src/observer.xml    | 37 ++++++++++++++++++++++++++--
 lib/observer/test/observer_SUITE.erl | 35 ++++++++++++++++++++++++--
 2 files changed, 68 insertions(+), 4 deletions(-)

diff --git a/lib/observer/doc/src/observer.xml b/lib/observer/doc/src/observer.xml
index 3fa59db70a..6994994756 100644
--- a/lib/observer/doc/src/observer.xml
+++ b/lib/observer/doc/src/observer.xml
@@ -52,8 +52,41 @@
 <fsummary>Start the Observer GUI.</fsummary>
 <desc>
 Starts the Observer GUI.
-	To stop the tool, close the window.
-	
+ To stop the tool, close the window or call
+ <seemfa marker="#stop/0">stop/0</seemfa>.
+ 
+ </desc>
+ </func>
+ <func>
+ <name since="OTP 26">start(Node) -> ok</name>
+ <fsummary>Start the Observer GUI connected against <c>Node</c>.</fsummary>
+ <desc>
+ Starts the Observer GUI and tries to connect it to <c>Node</c>.
+ </desc>
+ </func>
+ <func>
+ <name since="OTP 26">start_and_wait() -> ok</name>
+ <fsummary>Start the Observer GUI blocking.</fsummary>
+ <desc>
+ Starts the Observer GUI and only return when it is either stopped or
+ the window is closed
+ </desc>
+ </func>
+ <func>
+ <name since="OTP 26">start_and_wait(Node) -> ok</name>
+ <fsummary>Start the Observer GUI blocking and connect it to <c>Node</c>.</fsummary>
+ <desc>
+ Starts the Observer GUI and only return when it is either stopped or
+ the window is closed, connects it directly to <c>Node</c> like
+ <seemfa marker="#start/1">start/1</seemfa>.
+ 
+ </desc>
+ </func>
+ <func>
+ <name since="OTP 26">stop() -> ok</name>
+ <fsummary>Stop the Observer GUI.</fsummary>
+ <desc>
+ Stops the Observer GUI.
 </desc>
 </func>
 </funcs>
diff --git a/lib/observer/test/observer_SUITE.erl b/lib/observer/test/observer_SUITE.erl
index 1a1dca0fe0..3c3eca7ce7 100644
--- a/lib/observer/test/observer_SUITE.erl
+++ b/lib/observer/test/observer_SUITE.erl
@@ -35,7 +35,8 @@
 %% Test cases
 -export([app_file/1, appup_file/1,
 	 basic/1, process_win/1, table_win/1,
- port_win_when_tab_not_initiated/1
+ port_win_when_tab_not_initiated/1,
+ blocking_start/1, remote_node/1
 	]).
 
 %% Default timetrap timeout (set in init_per_testcase)
@@ -58,7 +59,9 @@ groups() ->
 [basic,
 process_win,
 table_win,
- port_win_when_tab_not_initiated
+ port_win_when_tab_not_initiated,
+ remote_node,
+ blocking_start
 ]
 }].
 
@@ -468,6 +471,34 @@ table_win(Config) when is_list(Config) ->
 ?P("table_win -> done"),
 ok.
 
+remote_node(_Config) ->
+ {ok, Peer, _Node} = ?CT_PEER(),
+ ok = observer:start(Peer),
+ Peer = observer:get_active_node(),
+ observer:stop(),
+ ensure_observer_stopped(),
+ peer:stop(Peer).
+
+blocking_start(_Config) ->
+ _Pid = spawn(fun observer:start_and_wait/0),
+ MonitorRef = monitor(process, observer),
+ receive
+ {'DOWN', MonitorRef, _, _, _} ->
+ error(observer_stopped_unexpectedly)
+ after
+ 500 ->
+ ok
+ end,
+ observer:stop(),
+ ensure_observer_stopped(),
+ receive
+ {'DOWN', MonitorRef, _, _, _} ->
+ ok
+ after
+ 500 ->
+ error(observer_should_have_stopped)
+ end.
+
 %% Test PR-1296/OTP-14151
 %% Clicking a link to a port before the port tab has been activated the
 %% first time crashes observer.
-- 
2.35.3

Places

File 1785-Add-tests-and-documentation.patch of Package erlang

Places