4
%% Copyright Ericsson AB 1999-2009. All Rights Reserved.
4
%% Copyright Ericsson AB 1999-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
20
20
-module(ref_SUITE).
22
-export([all/1,init_per_testcase/2,fin_per_testcase/2]).
22
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
23
init_per_group/2,end_per_group/2,
24
init_per_testcase/2,end_per_testcase/2]).
23
25
-export([wrap_1/1]).
25
27
-export([loop_ref/1]).
27
-include("test_server.hrl").
29
-include_lib("test_server/include/test_server.hrl").
29
31
init_per_testcase(_, Config) ->
30
32
?line Dog=test_server:timetrap(test_server:minutes(2)),
31
33
[{watchdog, Dog}|Config].
33
fin_per_testcase(_, Config) ->
35
end_per_testcase(_, Config) ->
34
36
Dog=?config(watchdog, Config),
35
37
test_server:timetrap_cancel(Dog),
38
all(suite) -> [wrap_1].
40
suite() -> [{ct_hooks,[ts_install_cth]}].
48
init_per_suite(Config) ->
51
end_per_suite(_Config) ->
54
init_per_group(_GroupName, Config) ->
57
end_per_group(_GroupName, Config) ->
40
61
wrap_1(doc) -> "Check that refs don't wrap around easily.";
41
62
wrap_1(Config) when is_list(Config) ->