diff options
Diffstat (limited to 'lib/stdlib')
| -rw-r--r-- | lib/stdlib/test/io_proto_SUITE.erl | 16 | ||||
| -rw-r--r-- | lib/stdlib/test/qlc_SUITE.erl | 4 | ||||
| -rw-r--r-- | lib/stdlib/test/shell_SUITE.erl | 4 | ||||
| -rw-r--r-- | lib/stdlib/test/stdlib_SUITE.erl | 2 |
4 files changed, 14 insertions, 12 deletions
diff --git a/lib/stdlib/test/io_proto_SUITE.erl b/lib/stdlib/test/io_proto_SUITE.erl index 82ef855cab..4a009814fa 100644 --- a/lib/stdlib/test/io_proto_SUITE.erl +++ b/lib/stdlib/test/io_proto_SUITE.erl @@ -763,7 +763,7 @@ bc_with_r12(suite) -> bc_with_r12(doc) -> ["Test io protocol compatibility with R12 nodes"]; bc_with_r12(Config) when is_list(Config) -> - case ?t:is_release_available("r12b") of + case test_server:is_release_available("r12b") of true -> bc_with_r12_1(Config); false -> {skip,"No R12B found"} end. @@ -772,7 +772,8 @@ bc_with_r12_1(Config) -> PA = filename:dirname(code:which(?MODULE)), Name1 = io_proto_r12_1, ?line N1 = list_to_atom(atom_to_list(Name1) ++ "@" ++ hostname()), - ?line ?t:start_node(Name1, peer, [{args, "-pz \""++PA++"\""},{erl,[{release,"r12b"}]}]), + test_server:start_node(Name1, peer, [{args, "-pz \""++PA++"\""}, + {erl,[{release,"r12b"}]}]), DataDir = ?config(data_dir,Config), %PrivDir = ?config(priv_dir,Config), FileName1 = filename:join([DataDir,"testdata_latin1.dat"]), @@ -899,7 +900,7 @@ bc_with_r12_1(Config) -> ?line eof = rpc:call(N1,file,read,[F4,1]), file:close(F4), - ?t:stop_node(N1), + test_server:stop_node(N1), ok. hold_the_line(Parent,Filename,Options) -> @@ -915,7 +916,7 @@ bc_with_r12_gl(suite) -> bc_with_r12_gl(doc) -> ["Test io protocol compatibility with R12 nodes (terminals)"]; bc_with_r12_gl(Config) when is_list(Config) -> - case ?t:is_release_available("r12b") of + case test_server:is_release_available("r12b") of true -> case get_progs() of {error,Reason} -> @@ -932,7 +933,7 @@ bc_with_r12_ogl(suite) -> bc_with_r12_ogl(doc) -> ["Test io protocol compatibility with R12 nodes (oldshell)"]; bc_with_r12_ogl(Config) when is_list(Config) -> - case ?t:is_release_available("r12b") of + case test_server:is_release_available("r12b") of true -> case get_progs() of {error,Reason} -> @@ -948,7 +949,8 @@ bc_with_r12_gl_1(_Config,Machine) -> PA = filename:dirname(code:which(?MODULE)), Name1 = io_proto_r12_gl_1, ?line N1 = list_to_atom(atom_to_list(Name1) ++ "@" ++ hostname()), - ?line ?t:start_node(Name1, peer, [{args, "-pz \""++PA++"\""},{erl,[{release,"r12b"}]}]), + test_server:start_node(Name1, peer, [{args, "-pz \""++PA++"\""}, + {erl,[{release,"r12b"}]}]), TestDataLine1 = [229,228,246], TestDataLine1BinUtf = unicode:characters_to_binary(TestDataLine1), TestDataLine1BinLatin = list_to_binary(TestDataLine1), @@ -1022,7 +1024,7 @@ bc_with_r12_gl_1(_Config,Machine) -> after 5000 -> exit(timeout) end, - ?t:stop_node(N1), + test_server:stop_node(N1), ok. diff --git a/lib/stdlib/test/qlc_SUITE.erl b/lib/stdlib/test/qlc_SUITE.erl index a886df99e7..a4093a58b1 100644 --- a/lib/stdlib/test/qlc_SUITE.erl +++ b/lib/stdlib/test/qlc_SUITE.erl @@ -1186,7 +1186,7 @@ evaluator(Config) when is_list(Config) -> evaluator_2(Config, []), ?line {ok, Node} = start_node(qlc_SUITE_evaluator), ?line ok = rpc:call(Node, ?MODULE, evaluator_2, [Config, [compiler]]), - ?line ?t:stop_node(Node), + test_server:stop_node(Node), ok. evaluator_2(Config, Apps) -> @@ -1214,7 +1214,7 @@ evaluator_2(Config, Apps) -> start_node(Name) -> ?line PA = filename:dirname(code:which(?MODULE)), - ?t:start_node(Name, slave, [{args, "-pa " ++ PA}]). + test_server:start_node(Name, slave, [{args, "-pa " ++ PA}]). string_to_handle(doc) -> "string_to_handle/1,2."; diff --git a/lib/stdlib/test/shell_SUITE.erl b/lib/stdlib/test/shell_SUITE.erl index e1733292f6..7cd87f4871 100644 --- a/lib/stdlib/test/shell_SUITE.erl +++ b/lib/stdlib/test/shell_SUITE.erl @@ -608,12 +608,12 @@ otp_5435(Config) when is_list(Config) -> ?line true = is_alive(), ?line {ok, Node} = start_node(shell_SUITE_otp_5435), ?line ok = rpc:call(Node, ?MODULE, otp_5435_2, []), - ?line ?t:stop_node(Node), + test_server:stop_node(Node), ok. start_node(Name) -> ?line PA = filename:dirname(code:which(?MODULE)), - ?t:start_node(Name, slave, [{args, "-pa " ++ PA}]). + test_server:start_node(Name, slave, [{args, "-pa " ++ PA}]). otp_5435_2() -> ?line true = code:del_path(compiler), diff --git a/lib/stdlib/test/stdlib_SUITE.erl b/lib/stdlib/test/stdlib_SUITE.erl index c9970f84b2..41176814db 100644 --- a/lib/stdlib/test/stdlib_SUITE.erl +++ b/lib/stdlib/test/stdlib_SUITE.erl @@ -59,7 +59,7 @@ app_test(suite) -> app_test(doc) -> ["Application consistency test."]; app_test(Config) when is_list(Config) -> - ?t:app_test(stdlib), + test_server:app_test(stdlib), ok. %% Test that appup allows upgrade from/downgrade to a maximum of one |