4
%% Copyright Ericsson AB 2001-2009. All Rights Reserved.
4
%% Copyright Ericsson AB 2001-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
28
28
-author('rickard.green@uab.ericsson.se').
30
30
%-define(line_trace, 1).
31
-include("test_server.hrl").
31
-include_lib("test_server/include/test_server.hrl").
33
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
34
init_per_group/2,end_per_group/2]).
80
all(suite) -> [links, dist_links, monitor_nodes, process_monitors,
81
dist_process_monitors, busy_dist_port_monitor,
82
busy_dist_port_link, otp_5772_link, otp_5772_dist_link,
83
otp_5772_monitor, otp_5772_dist_monitor,
81
suite() -> [{ct_hooks,[ts_install_cth]}].
84
[links, dist_links, monitor_nodes, process_monitors,
85
dist_process_monitors, busy_dist_port_monitor,
86
busy_dist_port_link, otp_5772_link, otp_5772_dist_link,
87
otp_5772_monitor, otp_5772_dist_monitor, otp_7946].
92
init_per_suite(Config) ->
95
end_per_suite(_Config) ->
96
catch erts_debug:set_internal_state(available_internal_state, false).
98
init_per_group(_GroupName, Config) ->
101
end_per_group(_GroupName, Config) ->
86
105
links(doc) -> ["Tests node local links"];
87
106
links(suite) -> [];
679
698
?line [{watchdog, Dog}|Config].
681
fin_per_testcase(_Func, Config) ->
700
end_per_testcase(_Func, Config) ->
682
701
?line Dog = ?config(watchdog, Config),
683
702
?line ?t:timetrap_cancel(Dog).
685
end_per_suite(_Config) ->
686
catch erts_debug:set_internal_state(available_internal_state, false).
688
704
tp_call(Tp, Fun) ->
689
705
?line R = make_ref(),
690
706
?line Tp ! {call, self(), R, Fun},