aboutsummaryrefslogtreecommitdiffstats
path: root/lib/megaco/test/megaco_tcp_test.erl
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2010-10-12 10:37:22 +0200
committerLukas Larsson <[email protected]>2011-02-17 17:25:12 +0100
commit6261f06d39e990b45f08b79edebe7b18a6eb9f01 (patch)
tree0900cce5f409e70e9c5ec33af86d861bec82d539 /lib/megaco/test/megaco_tcp_test.erl
parent91298c06d77197433c68b3cc1d05eb966e1370e0 (diff)
downloadotp-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.erl50
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 ------------------------