30
30
-define(DEFAULT_TIMEOUT_SECONDS, 120).
32
32
%-define(line_trace, 1).
33
-include("test_server.hrl").
33
-include_lib("test_server/include/test_server.hrl").
34
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
35
init_per_group/2,end_per_group/2]).
37
38
-export([xm_sig_order/1,
49
50
pending_exit_group_leader/1,
50
51
exit_before_pending_exit/1]).
52
-export([init_per_testcase/2, fin_per_testcase/2, end_per_suite/1]).
53
-export([init_per_testcase/2, end_per_testcase/2]).
54
55
init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) ->
55
56
?line Dog = ?t:timetrap(?t:seconds(?DEFAULT_TIMEOUT_SECONDS)),
56
57
available_internal_state(true),
57
58
?line [{testcase, Func},{watchdog, Dog}|Config].
59
fin_per_testcase(_Func, Config) ->
60
end_per_testcase(_Func, Config) ->
60
61
?line Dog = ?config(watchdog, Config),
61
62
?line ?t:timetrap_cancel(Dog).
64
init_per_suite(Config) ->
63
67
end_per_suite(_Config) ->
64
68
available_internal_state(true),
65
erts_debug:set_internal_state(not_running_optimization, true),
69
catch erts_debug:set_internal_state(not_running_optimization, true),
66
70
available_internal_state(false).
70
pending_exit_unlink_process,
72
suite() -> [{ct_hooks,[ts_install_cth]}].
75
[xm_sig_order, pending_exit_unlink_process,
71
76
pending_exit_unlink_dist_process,
72
pending_exit_unlink_port,
73
pending_exit_trap_exit,
75
pending_exit_trap_exit,
77
pending_exit_is_process_alive,
77
pending_exit_unlink_port, pending_exit_trap_exit,
78
pending_exit_receive, pending_exit_trap_exit,
79
pending_exit_gc, pending_exit_is_process_alive,
78
80
pending_exit_process_display,
79
81
pending_exit_process_info_1,
80
pending_exit_process_info_2,
81
pending_exit_group_leader,
82
pending_exit_process_info_2, pending_exit_group_leader,
82
83
exit_before_pending_exit].
88
init_per_group(_GroupName, Config) ->
91
end_per_group(_GroupName, Config) ->
84
95
xm_sig_order(doc) -> ["Test that exit signals and messages are received "
85
96
"in correct order"];
86
97
xm_sig_order(suite) -> [];