aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/src/test_server_node.erl
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2017-07-06 16:59:47 +0200
committerSiri Hansen <[email protected]>2017-09-15 17:07:50 +0200
commit09e2288b7a42345ea76e5e23ad93346c63efb06d (patch)
tree80a0814a8156544348979fcb26653fce01f6734c /lib/common_test/src/test_server_node.erl
parent532ab69fce9b7d1dc6974632ed8d17fdab68bd1a (diff)
downloadotp-09e2288b7a42345ea76e5e23ad93346c63efb06d.tar.gz
otp-09e2288b7a42345ea76e5e23ad93346c63efb06d.tar.bz2
otp-09e2288b7a42345ea76e5e23ad93346c63efb06d.zip
common_test: Do not use deprecated functions in string(3)
Diffstat (limited to 'lib/common_test/src/test_server_node.erl')
-rw-r--r--lib/common_test/src/test_server_node.erl10
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/common_test/src/test_server_node.erl b/lib/common_test/src/test_server_node.erl
index a18ff1fd62..d7bb6d10f7 100644
--- a/lib/common_test/src/test_server_node.erl
+++ b/lib/common_test/src/test_server_node.erl
@@ -315,9 +315,11 @@ start_node_peer(SlaveName, OptList, From, TI) ->
Prog0 = start_node_get_option_value(erl, OptList, default),
Prog = quote_progname(pick_erl_program(Prog0)),
Args =
- case string:str(SuppliedArgs,"-setcookie") of
- 0 -> "-setcookie " ++ TI#target_info.cookie ++ " " ++ SuppliedArgs;
- _ -> SuppliedArgs
+ case string:find(SuppliedArgs,"-setcookie") of
+ nomatch ->
+ "-setcookie " ++ TI#target_info.cookie ++ " " ++ SuppliedArgs;
+ _ ->
+ SuppliedArgs
end,
Cmd = lists:concat([Prog,
" -detached ",
@@ -612,7 +614,7 @@ pick_erl_program(L) ->
%% emulator and flags as the test node. The return from lib:progname()
%% could then typically be '/<full_path_to>/cerl -gcov').
quote_progname(Progname) ->
- do_quote_progname(string:tokens(Progname," ")).
+ do_quote_progname(string:lexemes(Progname," ")).
do_quote_progname([Prog]) ->
"\""++Prog++"\"";