aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2010-11-17 16:56:26 +0100
committerLukas Larsson <[email protected]>2010-12-08 18:07:47 +0100
commit1ab0779cd90f5b76bf546b5964e8550f1b68f962 (patch)
tree1b9c35e4d366a60734a1d178d8e55a666a000600 /lib/common_test
parent87a24f6a5c9a032baf64b2a3427c899c5e8632e7 (diff)
downloadotp-1ab0779cd90f5b76bf546b5964e8550f1b68f962.tar.gz
otp-1ab0779cd90f5b76bf546b5964e8550f1b68f962.tar.bz2
otp-1ab0779cd90f5b76bf546b5964e8550f1b68f962.zip
Expand tracing functions to be more verbose
Diffstat (limited to 'lib/common_test')
-rw-r--r--lib/common_test/src/ct_run.erl6
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;