diff options
| author | Lukas Larsson <lukas@erix.ericsson.se> | 2010-12-14 18:21:28 +0100 |
|---|---|---|
| committer | Lukas Larsson <lukas@erix.ericsson.se> | 2011-02-17 17:39:00 +0100 |
| commit | d8a27daee264991e14def9b2e40f10c8f6d8e4d3 (patch) | |
| tree | b10b1794da27e40a58d9803d80a88459f476b3e4 /erts/emulator/test/call_trace_SUITE.erl | |
| parent | 9c2305c5e388e966a47205fa70542e46a0f90913 (diff) | |
| download | erlang-d8a27daee264991e14def9b2e40f10c8f6d8e4d3.tar.gz | |
Fix formatting for emulator
Diffstat (limited to 'erts/emulator/test/call_trace_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/call_trace_SUITE.erl | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/erts/emulator/test/call_trace_SUITE.erl b/erts/emulator/test/call_trace_SUITE.erl index 9cfc9364df..2b35fbe80d 100644 --- a/erts/emulator/test/call_trace_SUITE.erl +++ b/erts/emulator/test/call_trace_SUITE.erl @@ -20,7 +20,9 @@ -module(call_trace_SUITE). --export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, init_per_group/2,end_per_group/2,init_per_testcase/2,fin_per_testcase/2, +-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1, + init_per_group/2,end_per_group/2, + init_per_testcase/2,end_per_testcase/2, hipe/1,process_specs/1,basic/1,flags/1,errors/1,pam/1,change_pam/1, return_trace/1,exception_trace/1,on_load/1,deep_exception/1, exception_nocatch/1,bit_syntax/1]). @@ -42,15 +44,15 @@ suite() -> [{suite_callbacks,[ts_install_scb]}]. all() -> -Common = [errors, on_load], - NotHipe = [process_specs, basic, flags, pam, change_pam, - return_trace, exception_trace, deep_exception, - exception_nocatch, bit_syntax], - Hipe = [hipe], - case test_server:is_native(call_trace_SUITE) of - true -> Hipe ++ Common; - false -> NotHipe ++ Common -end. + Common = [errors, on_load], + NotHipe = [process_specs, basic, flags, pam, change_pam, + return_trace, exception_trace, deep_exception, + exception_nocatch, bit_syntax], + Hipe = [hipe], + case test_server:is_native(call_trace_SUITE) of + true -> Hipe ++ Common; + false -> NotHipe ++ Common + end. groups() -> []. @@ -62,17 +64,17 @@ end_per_suite(_Config) -> ok. init_per_group(_GroupName, Config) -> - Config. + Config. end_per_group(_GroupName, Config) -> - Config. + Config. init_per_testcase(Func, Config) when is_atom(Func), is_list(Config) -> Dog = ?t:timetrap(?t:seconds(30)), [{watchdog, Dog}|Config]. -fin_per_testcase(_Func, Config) -> +end_per_testcase(_Func, Config) -> Dog = ?config(watchdog, Config), ?t:timetrap_cancel(Dog). |