4
%% Copyright Ericsson AB 2010. All Rights Reserved.
4
%% Copyright Ericsson AB 2010-2011. All Rights Reserved.
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
22
22
%% Tests receive after.
24
-include("test_server.hrl").
24
-include_lib("test_server/include/test_server.hrl").
26
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
27
init_per_group/2,end_per_group/2,
27
28
call_with_huge_message_queue/1,receive_in_between/1]).
29
-export([init_per_testcase/2,fin_per_testcase/2]).
32
[call_with_huge_message_queue,receive_in_between].
30
-export([init_per_testcase/2,end_per_testcase/2]).
32
suite() -> [{ct_hooks,[ts_install_cth]}].
35
[call_with_huge_message_queue, receive_in_between].
40
init_per_suite(Config) ->
43
end_per_suite(_Config) ->
46
init_per_group(_GroupName, Config) ->
49
end_per_group(_GroupName, Config) ->
34
53
init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) ->
35
54
Dog=?t:timetrap(?t:minutes(3)),
36
55
[{watchdog, Dog}|Config].
38
fin_per_testcase(_Func, Config) ->
57
end_per_testcase(_Func, Config) ->
39
58
Dog=?config(watchdog, Config),
40
59
?t:timetrap_cancel(Dog).