diff options
| author | Lukas Larsson <[email protected]> | 2010-10-12 10:37:22 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2011-02-17 17:25:12 +0100 |
| commit | 6261f06d39e990b45f08b79edebe7b18a6eb9f01 (patch) | |
| tree | 0900cce5f409e70e9c5ec33af86d861bec82d539 /lib/megaco/test/megaco_tcp_test.erl | |
| parent | 91298c06d77197433c68b3cc1d05eb966e1370e0 (diff) | |
| download | otp-6261f06d39e990b45f08b79edebe7b18a6eb9f01.tar.gz otp-6261f06d39e990b45f08b79edebe7b18a6eb9f01.tar.bz2 otp-6261f06d39e990b45f08b79edebe7b18a6eb9f01.zip | |
Update megaco tests to conform with common_test standard
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 ------------------------ |