69
69
%%% When run in test server %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
71
-export([all/1, basic/1, bit_syntax/1,
71
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
72
init_per_group/2,end_per_group/2, basic/1, bit_syntax/1,
72
73
return/1, on_and_off/1, stack_grow/1,info/1, delete/1,
73
74
exception/1, exception_apply/1,
74
75
exception_function/1, exception_apply_function/1,
79
80
exception_meta_nocatch/1, exception_meta_nocatch_apply/1,
80
81
exception_meta_nocatch_function/1,
81
82
exception_meta_nocatch_apply_function/1,
82
init_per_testcase/2, fin_per_testcase/2]).
83
init_per_testcase/2, end_per_testcase/2]).
83
84
init_per_testcase(_Case, Config) ->
84
85
?line Dog=test_server:timetrap(test_server:minutes(2)),
85
86
[{watchdog, Dog}|Config].
87
fin_per_testcase(_Case, Config) ->
88
end_per_testcase(_Case, Config) ->
89
90
Dog=?config(watchdog, Config),
90
91
test_server:timetrap_cancel(Dog),
93
["Test tracing of local function calls and return traces."];
95
case test_server:is_native(?MODULE) of
93
suite() -> [{ct_hooks,[ts_install_cth]}].
96
case test_server:is_native(trace_local_SUITE) of
97
false -> [basic, bit_syntax, return, on_and_off, stack_grow, info, delete,
98
exception, exception_apply,
99
exception_function, exception_apply_function,
100
exception_nocatch, exception_nocatch_apply,
101
exception_nocatch_function,
102
exception_nocatch_apply_function,
103
exception_meta, exception_meta_apply,
104
exception_meta_function, exception_meta_apply_function,
105
exception_meta_nocatch, exception_meta_nocatch_apply,
106
exception_meta_nocatch_function,
107
exception_meta_nocatch_apply_function]
99
[basic, bit_syntax, return, on_and_off, stack_grow,
100
info, delete, exception, exception_apply,
101
exception_function, exception_apply_function,
102
exception_nocatch, exception_nocatch_apply,
103
exception_nocatch_function,
104
exception_nocatch_apply_function, exception_meta,
105
exception_meta_apply, exception_meta_function,
106
exception_meta_apply_function, exception_meta_nocatch,
107
exception_meta_nocatch_apply,
108
exception_meta_nocatch_function,
109
exception_meta_nocatch_apply_function]
115
init_per_suite(Config) ->
118
end_per_suite(_Config) ->
121
init_per_group(_GroupName, Config) ->
124
end_per_group(_GroupName, Config) ->
110
128
not_run(Config) when is_list(Config) ->
111
129
{skipped,"Native code"}.