diff options
Diffstat (limited to 'lib/megaco/test/megaco_tcp_test.erl')
| -rw-r--r-- | lib/megaco/test/megaco_tcp_test.erl | 50 |
1 files changed, 21 insertions, 29 deletions
diff --git a/lib/megaco/test/megaco_tcp_test.erl b/lib/megaco/test/megaco_tcp_test.erl index 2348ebb882..1130d7a651 100644 --- a/lib/megaco/test/megaco_tcp_test.erl +++ b/lib/megaco/test/megaco_tcp_test.erl @@ -36,18 +36,18 @@ %% External exports %%---------------------------------------------------------------------- -export([ - all/1, + all/0,groups/0,init_per_group/2,end_per_group/2, - start/1, + start_normal/1, start_invalid_opt/1, start_and_stop/1, - sending/1, + sendreceive/1, block_unblock/1, - errors/1, + socket_failure/1, accept_process/1, accept_supervisor/1, @@ -121,34 +121,26 @@ end_per_testcase(Case, Config) -> %%====================================================================== %% Test case definitions %%====================================================================== -all(suite) -> - [ - start, - sending, - errors - ]. +all() -> +[{group, start}, {group, sending}, {group, errors}]. + +groups() -> + [{start, [], + [start_normal, start_invalid_opt, start_and_stop]}, + {sending, [], [sendreceive, block_unblock]}, + {errors, [], + [socket_failure, accept_process, accept_supervisor, + connection_supervisor, tcp_server]}]. + +init_per_group(_GroupName, Config) -> + Config. + +end_per_group(_GroupName, Config) -> + Config. + -start(suite) -> - [ - start_normal, - start_invalid_opt, - start_and_stop - ]. -sending(suite) -> - [ - sendreceive, - block_unblock - ]. -errors(suite) -> - [ - socket_failure, - accept_process, - accept_supervisor, - connection_supervisor, - tcp_server - ]. %% ------------------ start ------------------------ |