diff options
author | Micael Karlberg <bmk@erlang.org> | 2020-01-21 11:48:01 +0100 |
---|---|---|
committer | Micael Karlberg <bmk@erlang.org> | 2020-01-21 11:48:01 +0100 |
commit | 1a30f3c94f7b119e617cff832c21cba824afe598 (patch) | |
tree | 5b83d08f8b42379ac3d46ed3ee190b5e293aca83 /lib | |
parent | f3fcc516132da8b490d9cf9519f4ad97b3be11a2 (diff) | |
download | erlang-1a30f3c94f7b119e617cff832c21cba824afe598.tar.gz |
[megaco|test] Convert another (trans) test case to try-tc
'trans' test case otp_7192_2 converted.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/megaco/test/megaco_trans_SUITE.erl | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/lib/megaco/test/megaco_trans_SUITE.erl b/lib/megaco/test/megaco_trans_SUITE.erl index 4ae8abb4c6..e35e6fdc54 100644 --- a/lib/megaco/test/megaco_trans_SUITE.erl +++ b/lib/megaco/test/megaco_trans_SUITE.erl @@ -8219,23 +8219,28 @@ otp_7192_2(suite) -> otp_7192_2(doc) -> []; otp_7192_2(Config) when is_list(Config) -> - put(verbosity, ?TEST_VERBOSITY), - put(sname, "TEST"), - put(tc, otp_7192_2), - i("starting"), + Pre = fun() -> + MgcNode = make_node_name(mgc), + MgNode = make_node_name(mg), + d("start nodes: " + "~n MGC Node: ~p" + "~n MG Node: ~p", + [MgcNode, MgNode]), + Nodes = [MgcNode, MgNode], + ok = ?START_NODES(Nodes), + Nodes + end, + Case = fun do_otp_7192_2/1, + Post = fun(Nodes) -> + d("stop nodes"), + ?STOP_NODES(lists:reverse(Nodes)) + end, + try_tc(otp_7192_2, Pre, Case, Post). - MgcNode = make_node_name(mgc), - MgNode = make_node_name(mg), - d("start nodes: " - "~n MGC Node: ~p" - "~n MG Node: ~p", - [MgcNode, MgNode]), +do_otp_7192_2([MgcNode, MgNode]) -> MgMid = {deviceName,"mg"}, - ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE), - - d("[MGC] start the simulator "), {ok, Mgc} = megaco_test_megaco_generator:start_link("MGC", MgcNode), |