4
%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
4
%% Copyright Ericsson AB 1996-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
8
8
%% compliance with the License. You should have received a copy of the
9
9
%% Erlang Public License along with this software. If not, it can be
10
10
%% retrieved online at http://www.erlang.org/.
12
12
%% Software distributed under the License is distributed on an "AS IS"
13
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
14
%% the License for the specific language governing rights and limitations
15
15
%% under the License.
19
19
-module(init_SUITE).
21
-include("test_server.hrl").
21
-include_lib("test_server/include/test_server.hrl").
23
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
24
init_per_group/2,end_per_group/2]).
25
26
-export([get_arguments/1, get_argument/1, boot_var/1, restart/1,
26
27
get_plain_arguments/1,
27
reboot/1, stop/1, get_status/1, script_id/1, boot/1]).
28
reboot/1, stop/1, get_status/1, script_id/1]).
28
29
-export([boot1/1, boot2/1]).
30
-export([init_per_testcase/2, fin_per_testcase/2]).
31
-export([init_per_testcase/2, end_per_testcase/2]).
32
33
-export([init/1, fini/1]).
38
39
%% Should be started in a CC view with:
39
40
%% erl -sname master -rsh ctrsh
40
41
%%-----------------------------------------------------------------
42
suite() -> [{ct_hooks,[ts_install_cth]}].
42
45
[get_arguments, get_argument, boot_var,
45
get_status, script_id, boot].
47
init_per_testcase(Func, Config) when atom(Func), list(Config) ->
46
get_plain_arguments, restart, get_status, script_id,
50
[{boot, [], [boot1, boot2]}].
52
init_per_suite(Config) ->
55
end_per_suite(_Config) ->
58
init_per_group(_GroupName, Config) ->
61
end_per_group(_GroupName, Config) ->
65
init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) ->
48
66
Dog=?t:timetrap(?t:seconds(?DEFAULT_TIMEOUT_SEC)),
49
67
[{watchdog, Dog}|Config].
51
fin_per_testcase(_Func, Config) ->
69
end_per_testcase(_Func, Config) ->
52
70
Dog=?config(watchdog, Config),
53
71
?t:timetrap_cancel(Dog).
488
506
%% ------------------------------------------------
489
507
%% Start the slave system with -boot flag.
490
508
%% ------------------------------------------------
491
boot(suite) -> [boot1, boot2].
493
510
boot1(doc) -> [];
494
511
boot1(suite) -> {req, [distribution, {local_slave_nodes, 1}, {time, 35}]};