4
%% Copyright Ericsson AB 2009. 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
23
23
%-define(line_trace, 1).
25
-include("test_server.hrl").
25
-include_lib("test_server/include/test_server.hrl").
27
27
%-compile(export_all).
28
-export([all/1, init_per_testcase/2, fin_per_testcase/2]).
28
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
29
init_per_group/2,end_per_group/2,
30
init_per_testcase/2, end_per_testcase/2]).
30
32
-export([otp_8099/1]).
32
34
-define(DEFAULT_TIMEOUT, ?t:minutes(2)).
36
suite() -> [{ct_hooks,[ts_install_cth]}].
44
init_per_suite(Config) ->
47
end_per_suite(_Config) ->
50
init_per_group(_GroupName, Config) ->
53
end_per_group(_GroupName, Config) ->
38
57
init_per_testcase(Case, Config) when is_list(Config) ->
39
58
Dog = ?t:timetrap(?DEFAULT_TIMEOUT),
40
59
[{watchdog, Dog}, {testcase, Case} | Config].
42
fin_per_testcase(_Case, Config) when is_list(Config) ->
61
end_per_testcase(_Case, Config) when is_list(Config) ->
43
62
Dog = ?config(watchdog, Config),
44
63
?t:timetrap_cancel(Dog),