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_run.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_run.erl')
| -rw-r--r-- | lib/common_test/src/ct_run.erl | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl index 8c401cf3f5..afc5fee4f7 100644 --- a/lib/common_test/src/ct_run.erl +++ b/lib/common_test/src/ct_run.erl @@ -442,11 +442,9 @@ script_start2(Opts = #opts{vts = undefined, TestSpecData -> execute_all_specs(TestSpecData, Opts, Args, []) catch - throw:{error,Reason} -> - StackTrace = erlang:get_stacktrace(), + throw:{error,Reason}:StackTrace -> {error,{invalid_testspec,{Reason,StackTrace}}}; - _:Reason -> - StackTrace = erlang:get_stacktrace(), + _:Reason:StackTrace -> {error,{invalid_testspec,{Reason,StackTrace}}} end; [] -> @@ -1211,11 +1209,9 @@ run_spec_file(Relaxed, TestSpecData -> run_all_specs(TestSpecData, Opts, StartOpts, []) catch - throw:{error,CTReason} -> - StackTrace = erlang:get_stacktrace(), + throw:{error,CTReason}:StackTrace -> exit({error,{invalid_testspec,{CTReason,StackTrace}}}); - _:CTReason -> - StackTrace = erlang:get_stacktrace(), + _:CTReason:StackTrace -> exit({error,{invalid_testspec,{CTReason,StackTrace}}}) end. |