diff options
| author | Micael Karlberg <bmk@erlang.org> | 2020-01-21 12:59:34 +0100 |
|---|---|---|
| committer | Micael Karlberg <bmk@erlang.org> | 2020-01-21 12:59:34 +0100 |
| commit | 35c37467c88cb3fba2c9d791d52cae00452c1d1a (patch) | |
| tree | 094a3a194842debe07bbf97f974dda40afffb6d6 /lib/megaco/test | |
| parent | 1259167b9fd3fa574d8cdd309f12a4f62ecccc21 (diff) | |
| download | erlang-35c37467c88cb3fba2c9d791d52cae00452c1d1a.tar.gz | |
[megaco|test] Convert another (segment) test case to try-tc
'segment' test case recv_segmented_msg_missing_seg1 converted.
Diffstat (limited to 'lib/megaco/test')
| -rw-r--r-- | lib/megaco/test/megaco_segment_SUITE.erl | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/lib/megaco/test/megaco_segment_SUITE.erl b/lib/megaco/test/megaco_segment_SUITE.erl index afb3b63432..a8940efa2f 100644 --- a/lib/megaco/test/megaco_segment_SUITE.erl +++ b/lib/megaco/test/megaco_segment_SUITE.erl @@ -6342,18 +6342,25 @@ recv_segmented_msg_missing_seg1(doc) -> "Received segmented megaco message with one segment missing " "using plain integer recv segment timer"; recv_segmented_msg_missing_seg1(Config) when is_list(Config) -> - put(verbosity, ?TEST_VERBOSITY), - put(sname, "TEST"), - put(tc, rsmms1), - i("starting"), + Pre = fun() -> + MgcNode = make_node_name(mgc), + MgNode = make_node_name(mg), + d("start nodes: " + "~n MgcNode: ~p" + "~n MgNode: ~p", + [MgcNode, MgNode]), + Nodes = [MgcNode, MgNode], + ok = ?START_NODES(Nodes), + Nodes + end, + Case = fun do_recv_segmented_msg_missing_seg1/1, + Post = fun(Nodes) -> + d("stop nodes"), + ?STOP_NODES(lists:reverse(Nodes)) + end, + try_tc(rsmms1, Pre, Case, Post). - MgcNode = make_node_name(mgc), - MgNode = make_node_name(mg), - d("start nodes: " - "~n MgcNode: ~p" - "~n MgNode: ~p", - [MgcNode, MgNode]), - ok = megaco_test_lib:start_nodes([MgcNode, MgNode], ?FILE, ?LINE), +do_recv_segmented_msg_missing_seg1([MgcNode, MgNode]) -> d("[MGC] start the simulator "), {ok, Mgc} = megaco_test_tcp_generator:start_link("MGC", MgcNode), |