File 1961-os_mon-peer-ify-application.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1961-os_mon-peer-ify-application.patch of Package erlang (Revision 1c6d27e874ff4bb28c5c2e74b90a1fc8)

Currently displaying revision 1c6d27e874ff4bb28c5c2e74b90a1fc8 , Show latest

From a9968224a384850cb859c6930d644e4445d8f925 Mon Sep 17 00:00:00 2001
From: Maxim Fedorov <maximfca@gmail.com>
Date: Fri, 19 Nov 2021 14:17:06 -0800
Subject: [PATCH] [os_mon] peer-ify application

Replace test_server:start_node with ?CT_PEER.
---
 lib/os_mon/test/memsup_SUITE.erl | 23 +++--------------------
 1 file changed, 3 insertions(+), 20 deletions(-)

diff --git a/lib/os_mon/test/memsup_SUITE.erl b/lib/os_mon/test/memsup_SUITE.erl
index 4574a387fe..9332409d3d 100644
--- a/lib/os_mon/test/memsup_SUITE.erl
+++ b/lib/os_mon/test/memsup_SUITE.erl
@@ -722,14 +722,14 @@ otp_5910(Config) when is_list(Config) ->
     ok = application:start(os_mon),
     ok.
 
-improved_system_memory_data(Config) ->
-    {ok, Node} = start_node(Config),
+improved_system_memory_data(Config) when is_list(Config) ->
+    {ok, Peer, Node} = ?CT_PEER(),
     ok = rpc:call(Node, application, start, [sasl]),
     ok = rpc:call(Node, application, start, [os_mon]),
 
     ExtMemData = rpc:call(Node, memsup, get_system_memory_data, []),
 
-    stop_node(Node),
+    peer:stop(Peer),
 
     Tags = ?SYSTEM_MEMORY_DATA_TAGS,
     AvailableMemoryPresent
@@ -802,20 +802,3 @@ flush() ->
     after 0 ->
               ok
     end.
-
-start_node(Config) ->
-    start_node(Config, "").
-
-start_node(Config, Args) when is_list(Config) ->
-    Pa = filename:dirname(code:which(?MODULE)),
-    Name = list_to_atom(atom_to_list(?MODULE)
-			++ "-"
-			++ atom_to_list(proplists:get_value(testcase, Config))
-			++ "-"
-			++ integer_to_list(erlang:system_time(second))
-			++ "-"
-			++ integer_to_list(erlang:unique_integer([positive]))),
-    test_server:start_node(Name, slave, [{args, "-pa "++Pa++" "++Args}]).
-
-stop_node(Node) ->
-    test_server:stop_node(Node).
-- 
2.31.1

Places

File 1961-os_mon-peer-ify-application.patch of Package erlang (Revision 1c6d27e874ff4bb28c5c2e74b90a1fc8)

Places