diff options
| author | Hans Bolinder <[email protected]> | 2018-02-05 12:33:49 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2018-02-05 14:45:36 +0100 |
| commit | 0f42a14f6c201ac1d8d02abcd24f9d06e0d17545 (patch) | |
| tree | 5be0ac651259d0d5ad78c57436f5d929c93bef9a /lib/common_test/src/ct.erl | |
| parent | 18d9afbd5c62bb7b7237fe0d580fc05737a096c1 (diff) | |
| download | otp-0f42a14f6c201ac1d8d02abcd24f9d06e0d17545.tar.gz otp-0f42a14f6c201ac1d8d02abcd24f9d06e0d17545.tar.bz2 otp-0f42a14f6c201ac1d8d02abcd24f9d06e0d17545.zip | |
common_test: Do not call erlang:get_stacktrace()
Diffstat (limited to 'lib/common_test/src/ct.erl')
| -rw-r--r-- | lib/common_test/src/ct.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/common_test/src/ct.erl b/lib/common_test/src/ct.erl index 69e371a30f..fd7fa07b81 100644 --- a/lib/common_test/src/ct.erl +++ b/lib/common_test/src/ct.erl @@ -872,8 +872,8 @@ fail(Reason) -> try exit({test_case_failed,Reason}) catch - Class:R -> - case erlang:get_stacktrace() of + Class:R:S -> + case S of [{?MODULE,fail,1,_}|Stk] -> ok; Stk -> ok end, @@ -894,8 +894,8 @@ fail(Format, Args) -> try exit({test_case_failed,lists:flatten(Str)}) catch - Class:R -> - case erlang:get_stacktrace() of + Class:R:S -> + case S of [{?MODULE,fail,2,_}|Stk] -> ok; Stk -> ok end, |