File 1971-crypto-peer-ify-crypto-application.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1971-crypto-peer-ify-crypto-application.patch of Package erlang (Revision b86624bd0b247ddee296914ae2ffe962)

Currently displaying revision b86624bd0b247ddee296914ae2ffe962 , Show latest

From c88fc39b2be9448e6d37a9849c01f3a257395eda Mon Sep 17 00:00:00 2001
From: Maxim Fedorov <maximfca@gmail.com>
Date: Wed, 17 Nov 2021 09:59:18 -0800
Subject: [PATCH] [crypto] peer-ify crypto application

Use `?CT_PEER` instead of test_server:start_node.
---
 lib/crypto/test/crypto_SUITE.erl | 23 ++++-------------------
 1 file changed, 4 insertions(+), 19 deletions(-)

diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl
index a977991bbb..cb4c8411e9 100644
--- a/lib/crypto/test/crypto_SUITE.erl
+++ b/lib/crypto/test/crypto_SUITE.erl
@@ -686,36 +686,21 @@ make_crypto_key(String) ->
     {[K1,K2,K3],IVec,8}.
 %%--------------------------------------------------------------------
 %% Test that a spawned node has initialized the cache
--define(at_node, 
-        (fun(N, M, F, As) ->
-                 R = rpc:call(N, M, F, As),
-                 ct:log("~p ~p ~p:~p(~s) = ~p", [?LINE,N,M,F,args2list(As), R]),
-                 R
-         end) ).
-args2list(As) -> lists:join(", ", [io_lib:format("~p",[A]) || A <- As]).
 
 node_supports_cache(_Config) ->
     ECs = crypto:supports(curves),
-    {ok,Node} = start_slave_node(random_node_name(?MODULE)),
-    case ?at_node(Node, crypto, supports, [curves]) of
+    {ok,Peer,Node} = ?CT_PEER(),
+    case erpc:call(Node, crypto, supports, [curves]) of
         ECs ->
-            test_server:stop_node(Node);
+            peer:stop(Peer);
         OtherECs ->
+            peer:stop(Peer),
             ct:log("At master:~p~nAt slave:~p~n"
                    "Missing at slave: ~p~nmissing at master: ~p",
                    [ECs, OtherECs, ECs--OtherECs, OtherECs--ECs]),
             {fail, "different support at slave"}
     end.
 
-
-start_slave_node(Name) ->
-    Pa = filename:dirname(code:which(?MODULE)),
-    test_server:start_node(Name, slave, [{args, " -pa " ++ Pa}]).
-
-random_node_name(BaseName) ->
-    L = integer_to_list(erlang:unique_integer([positive])),
-    lists:concat([BaseName,"___",L]).
-
 %%--------------------------------------------------------------------
 hash() ->
     [{doc, "Test all different hash functions"}].
-- 
2.31.1

Places

File 1971-crypto-peer-ify-crypto-application.patch of Package erlang (Revision b86624bd0b247ddee296914ae2ffe962)

Places