system (test): Do not use deprecated functions in string(3)

7 files changed, 16 insertions, 32 deletions

diff --git a/erts/test/erlexec_SUITE.erl b/erts/test/erlexec_SUITE.erl
index 44d7f63387..db993abe52 100644
--- a/erts/test/erlexec_SUITE.erl
+++ b/erts/test/erlexec_SUITE.erl
@@ -59,7 +59,7 @@ otp_8209(Config) when is_list(Config) ->
     {ok,[[PName]]} = init:get_argument(progname),
     SNameS = "erlexec_test_01",
     SName = list_to_atom(SNameS++"@"++
-			 hd(tl(string:tokens(atom_to_list(node()),"@")))),
+			 hd(tl(string:lexemes(atom_to_list(node()),"@")))),
     Cmd = PName ++ " dummy_param -sname "++SNameS++" -setcookie "++
 	atom_to_list(erlang:get_cookie()),
     open_port({spawn,Cmd},[]),
@@ -75,7 +75,7 @@ cleanup_node(SNameS,0) ->
     {error, {would_not_die,list_to_atom(SNameS)}};
 cleanup_node(SNameS,N) ->
     SName = list_to_atom(SNameS++"@"++
-			 hd(tl(string:tokens(atom_to_list(node()),"@")))),
+			 hd(tl(string:lexemes(atom_to_list(node()),"@")))),
     case rpc:call(SName,init,stop,[]) of
 	{badrpc,_} ->
 	    ok;
@@ -322,7 +322,7 @@ zdbbl_dist_buf_busy_limit(Config) when is_list(Config) ->
     {ok,[[PName]]} = init:get_argument(progname),
     SNameS = "erlexec_test_02",
     SName = list_to_atom(SNameS++"@"++
-                         hd(tl(string:tokens(atom_to_list(node()),"@")))),
+                         hd(tl(string:lexemes(atom_to_list(node()),"@")))),
     Cmd = PName ++ " -sname "++SNameS++" -setcookie "++
         atom_to_list(erlang:get_cookie()) ++
 	" +zdbbl " ++ integer_to_list(LimKB),
@@ -400,7 +400,7 @@ emu_args(CmdLineArgs) ->
     {ok,[[Erl]]} = init:get_argument(progname),
     EmuCL = os:cmd(Erl ++ " -emu_args_exit " ++ CmdLineArgs),
     io:format("EmuCL = ~ts", [EmuCL]),
-    split_emu_clt(string:tokens(EmuCL, [$ ,$\t,$\n,$\r])).
+    split_emu_clt(string:lexemes(EmuCL, [$ ,$\t,$\n,$\r])).
 
 split_emu_clt(EmuCLT) ->
     split_emu_clt(EmuCLT, [], [], [], emu).
diff --git a/erts/test/install_SUITE.erl b/erts/test/install_SUITE.erl
index d6c6d6f30e..324b398caa 100644
--- a/erts/test/install_SUITE.erl
+++ b/erts/test/install_SUITE.erl
@@ -580,7 +580,7 @@ end_per_testcase(_Case, _Config) ->
     ok.
 
 make_dirs(Root, Suffix) ->
-    do_make_dirs(Root, string:tokens(Suffix, [$/])).
+    do_make_dirs(Root, string:lexemes(Suffix, [$/])).
 
 do_make_dirs(_Root, []) ->
     "";
@@ -709,4 +709,4 @@ join("") ->
 join([""|Ds]) ->
     join(Ds);
 join([D|Ds]) ->
-    "/" ++ string:strip(D, both, $/) ++ join(Ds).
+    "/" ++ string:trim(D, both, [$/]) ++ join(Ds).
diff --git a/erts/test/nt_SUITE.erl b/erts/test/nt_SUITE.erl
index 624e5484ba..3081b58835 100644
--- a/erts/test/nt_SUITE.erl
+++ b/erts/test/nt_SUITE.erl
@@ -117,7 +117,7 @@ wait_for_node(Name) ->
     do_wait_for_it(FullName,30).
 
 make_full_name(Name) ->
-    [_,Suffix] = string:tokens(atom_to_list(node()),"@"),
+    [_,Suffix] = string:lexemes(atom_to_list(node()),"@"),
     list_to_atom(Name ++ "@" ++ Suffix).
 
 
@@ -171,7 +171,7 @@ service_env(Config) when is_list(Config) ->
                     ["ERLSRV_SERVICE_NAME"]),
     "erlsrv.exe" = filename:basename(
                      hd(
-                       string:tokens(
+                       string:lexemes(
                          rpc:call(make_full_name(Name),
                                   os,
                                   getenv,
diff --git a/erts/test/otp_SUITE.erl b/erts/test/otp_SUITE.erl
index 54fcfd935f..3abe45c141 100644
--- a/erts/test/otp_SUITE.erl
+++ b/erts/test/otp_SUITE.erl
@@ -336,7 +336,7 @@ not_recommended_calls(Config, Apps0, MFA) ->
                 _ ->
                     AppStrings = [atom_to_list(A) || A <- SkippedApps],
                     Mess = io_lib:format("Application(s) not present: ~s\n",
-                                         [string:join(AppStrings, ", ")]),
+                                         [lists:join(", ", AppStrings)]),
                     {comment, Mess}
             end;
         _ ->
@@ -463,7 +463,7 @@ runtime_dependencies(Config) ->
 have_rdep(_App, [], _Dep) ->
     false;
 have_rdep(App, [RDep | RDeps], Dep) ->		    
-    [AppStr, _VsnStr] = string:tokens(RDep, "-"),
+    [AppStr, _VsnStr] = string:lexemes(RDep, "-"),
     case Dep == list_to_atom(AppStr) of
         true ->
             io:format("~p -> ~s~n", [App, RDep]),
diff --git a/erts/test/run_erl_SUITE.erl b/erts/test/run_erl_SUITE.erl
index fe1ccba1e2..08edd930b4 100644
--- a/erts/test/run_erl_SUITE.erl
+++ b/erts/test/run_erl_SUITE.erl
@@ -255,7 +255,7 @@ do_run_erl(Config, Case, Opt) ->
     
     net_kernel:monitor_nodes(true),
     open_port({spawn,Cmd}, []),
-    [_,Host] = string:tokens(atom_to_list(node()), "@"),
+    [_,Host] = string:lexemes(atom_to_list(node()), "@"),
     Node = list_to_atom(NodeName++"@"++Host),
 
     receive
diff --git a/erts/test/upgrade_SUITE.erl b/erts/test/upgrade_SUITE.erl
index a5639d927d..31ceb06314 100644
--- a/erts/test/upgrade_SUITE.erl
+++ b/erts/test/upgrade_SUITE.erl
@@ -287,7 +287,7 @@ create_relfile(Node,CreateDir,RelName0,RelVsn) ->
 			 true ->
 			     case filename:split(Path) -- SplitLibDir of
 				 [AppVsn,"ebin"] ->
-				     case string:tokens(AppVsn,"-") of
+				     case string:lexemes(AppVsn,"-") of
 					 [AppStr,Vsn] ->
 					     App = list_to_atom(AppStr),
 					     case lists:member(App,Exclude) of
diff --git a/erts/test/z_SUITE.erl b/erts/test/z_SUITE.erl
index d474c71c4f..cd7a894eb5 100644
--- a/erts/test/z_SUITE.erl
+++ b/erts/test/z_SUITE.erl
@@ -132,22 +132,9 @@ core_search_conf(RunByTS, DBTop, XDir) ->
 
 file_inspect(#core_search_conf{file = File}, Core) ->
     FRes0 = os:cmd(File ++ " " ++ Core),
-    FRes = case string:str(FRes0, Core) of
-	       0 ->
-		   FRes0;
-	       S ->
-		   L = length(FRes0),
-		   E = length(Core),
-		   case S of
-		       1 ->
-			   lists:sublist(FRes0, E+1, L+1);
-		       _ ->
-			   lists:sublist(FRes0, 1, S-1)
-			       ++
-			       " "
-			       ++
-			       lists:sublist(FRes0, E+1, L+1)
-		   end
+    FRes = case string:split(FRes0, Core) of
+	       [S1] -> S1;
+	       [S1,S2] -> lists:flatten(S1 ++ " " ++ S2)
 	   end,
     case re:run(FRes, "text|ascii", [caseless,{capture,none}]) of
 	match ->
@@ -194,9 +181,6 @@ mod_time_list(F) ->
 	    [0,0,0,0,0,0]
     end.
 
-str_strip(S) ->
-    string:strip(string:strip(string:strip(S), both, $\n), both, $\r).
-
 dump_core(#core_search_conf{ cerl = false }, _) ->
     ok;
 dump_core(_, {ignore, _Core}) ->
@@ -232,7 +216,7 @@ format_core(#core_search_conf{file = false}, Core, Ignore) ->
     io:format("  ~s~s " ++ time_fstr() ++ "~s~n",
 	      [Ignore, Core] ++ mod_time_list(Core));
 format_core(#core_search_conf{file = File}, Core, Ignore) ->
-    FRes = str_strip(os:cmd(File ++ " " ++ Core)),
+    FRes = string:trim(os:cmd(File ++ " " ++ Core)),
     case catch re:run(FRes, Core, [caseless,{capture,none}]) of
 	match ->
 	    io:format("  ~s~s " ++ time_fstr() ++ "~n",