diff options
| author | Hans Bolinder <[email protected]> | 2018-02-05 12:32:07 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2018-02-06 14:40:54 +0100 |
| commit | 16cb4f9c59142b4e82f1a2ccbcc904be7dfdee4c (patch) | |
| tree | 0585367b4f76b4ac5f253a2378c52c0c70a5c6e1 /lib/stdlib/test/array_SUITE.erl | |
| parent | 121681f93bec0f92a965059055f3492fc119548c (diff) | |
| download | otp-16cb4f9c59142b4e82f1a2ccbcc904be7dfdee4c.tar.gz otp-16cb4f9c59142b4e82f1a2ccbcc904be7dfdee4c.tar.bz2 otp-16cb4f9c59142b4e82f1a2ccbcc904be7dfdee4c.zip | |
stdlib: Do not call erlang:get_stacktrace()
Diffstat (limited to 'lib/stdlib/test/array_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/array_SUITE.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/stdlib/test/array_SUITE.erl b/lib/stdlib/test/array_SUITE.erl index 5836f275ba..956582c4fd 100644 --- a/lib/stdlib/test/array_SUITE.erl +++ b/lib/stdlib/test/array_SUITE.erl @@ -141,10 +141,10 @@ t(What) -> io:format("Test ~p ~n",[T]), try ?MODULE:T([]) - catch _E:_R -> + catch _E:_R:_S -> Line = get(test_server_loc), io:format("Failed ~p:~p ~p ~p~n ~p~n", - [T,Line,_E,_R, erlang:get_stacktrace()]) + [T,Line,_E,_R,_S]) end end, What). @@ -161,8 +161,8 @@ extract_tests() -> end, [Call(Test) || Test <- Tests], io:format("Tests ~p~n", [Tests]) - catch _:Err -> - io:format("Error: ~p ~p~n", [Err, erlang:get_stacktrace()]) + catch _:Err:Stacktrace -> + io:format("Error: ~p ~p~n", [Err, Stacktrace]) end, file:close(In), file:close(Out). |