summaryrefslogtreecommitdiff
path: root/lib/ssl/test/ssl_bench_test_lib.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ssl/test/ssl_bench_test_lib.erl')
-rw-r--r--lib/ssl/test/ssl_bench_test_lib.erl37
1 files changed, 0 insertions, 37 deletions
diff --git a/lib/ssl/test/ssl_bench_test_lib.erl b/lib/ssl/test/ssl_bench_test_lib.erl
index 648b42fb03..474a69fe17 100644
--- a/lib/ssl/test/ssl_bench_test_lib.erl
+++ b/lib/ssl/test/ssl_bench_test_lib.erl
@@ -71,43 +71,6 @@ find_executable(Prog) ->
P -> P
end.
--ifdef(undefined).
-setup(Name) ->
- Host = case os:getenv(?remote_host) of
- false ->
- {ok, This} = inet:gethostname(),
- This;
- RemHost ->
- RemHost
- end,
- Node = list_to_atom(atom_to_list(Name) ++ "@" ++ Host),
- SlaveArgs = case init:get_argument(pa) of
- {ok, PaPaths} ->
- lists:append([" -pa " ++ P || [P] <- PaPaths]);
- _ -> []
- end,
- %% ct:pal("Slave args: ~p~n",[SlaveArgs]),
- Prog =
- case os:find_executable("erl") of
- false -> "erl";
- P -> P
- end,
- ct:pal("Prog = ~p~n", [Prog]),
-
- case net_adm:ping(Node) of
- pong -> ok;
- pang ->
- {ok, Node} =
- slave:start(Host, Name, SlaveArgs, no_link, Prog)
- end,
- Path = code:get_path(),
- true = rpc:call(Node, code, set_path, [Path]),
- ok = rpc:call(Node, ?MODULE, setup_server, [node()]),
- ct:pal("Client (~p) using ~ts~n",[node(), code:which(ssl)]),
- (Node =:= node()) andalso restrict_schedulers(client),
- Node.
--endif.
-
setup_server(ClientNode) ->
(ClientNode =:= node()) andalso restrict_schedulers(server),
ct:pal("Server (~p) using ~ts~n",[node(), code:which(ssl)]),