diff options
| author | Lukas Larsson <[email protected]> | 2010-11-17 16:56:26 +0100 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2010-12-08 18:07:47 +0100 |
| commit | 1ab0779cd90f5b76bf546b5964e8550f1b68f962 (patch) | |
| tree | 1b9c35e4d366a60734a1d178d8e55a666a000600 /lib/common_test/src/ct_run.erl | |
| parent | 87a24f6a5c9a032baf64b2a3427c899c5e8632e7 (diff) | |
| download | otp-1ab0779cd90f5b76bf546b5964e8550f1b68f962.tar.gz otp-1ab0779cd90f5b76bf546b5964e8550f1b68f962.tar.bz2 otp-1ab0779cd90f5b76bf546b5964e8550f1b68f962.zip | |
Expand tracing functions to be more verbose
Diffstat (limited to 'lib/common_test/src/ct_run.erl')
| -rw-r--r-- | lib/common_test/src/ct_run.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl index 7869e385c2..9b4007026b 100644 --- a/lib/common_test/src/ct_run.erl +++ b/lib/common_test/src/ct_run.erl @@ -2306,12 +2306,14 @@ do_trace(Terms) -> _ -> ok end; ({me,M}) -> - case dbg:tp(M,[{'_',[],[x,{message,{caller}}]}]) of + case dbg:tp(M,[{'_',[],[{exception_trace}, + {message,{caller}}]}]) of {error,What} -> exit({error,{tracing_failed,What}}); _ -> ok end; ({f,M,F}) -> - case dbg:tpl(M,F,x) of + case dbg:tpl(M,F,[{'_',[],[{exception_trace}, + {message,{caller}}]}]) of {error,What} -> exit({error,{tracing_failed,What}}); _ -> ok end; |