diff options
| author | Lukas Larsson <[email protected]> | 2016-04-05 11:48:45 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2016-04-15 15:08:52 +0200 |
| commit | a8d483f660578473236e987f040447f2bfdbdcc9 (patch) | |
| tree | 5c9bd12e06135f8c9ad9d232b5ffad061cfad20a | |
| parent | c3e7acb4fe304d117f7361292d36f5d73df3e1c7 (diff) | |
| download | otp-a8d483f660578473236e987f040447f2bfdbdcc9.tar.gz otp-a8d483f660578473236e987f040447f2bfdbdcc9.tar.bz2 otp-a8d483f660578473236e987f040447f2bfdbdcc9.zip | |
erts: more logging in trace_bif_SUITE trace_bif_return
| -rw-r--r-- | erts/emulator/test/trace_bif_SUITE.erl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/erts/emulator/test/trace_bif_SUITE.erl b/erts/emulator/test/trace_bif_SUITE.erl index a2edf0662d..8c3ffccc45 100644 --- a/erts/emulator/test/trace_bif_SUITE.erl +++ b/erts/emulator/test/trace_bif_SUITE.erl @@ -247,7 +247,8 @@ receive_trace_msg(Mess) -> receive_trace_msg_ts({trace_ts, Pid, call, {erlang,F,A}}, PrevTs, TsType) -> receive - {trace_ts, Pid, call, {erlang, F, A}, Ts} -> + {trace_ts, Pid, call, {erlang, F, A}, Ts} = M -> + io:format("~p (PrevTs: ~p)~n",[M, PrevTs]), check_ts(TsType, PrevTs, Ts), Ts; Other -> @@ -260,7 +261,8 @@ receive_trace_msg_ts({trace_ts, Pid, call, {erlang,F,A}}, PrevTs, TsType) -> receive_trace_msg_ts_return_from({trace_ts, Pid, return_from, {erlang,F,A}}, PrevTs, TsType) -> receive - {trace_ts, Pid, return_from, {erlang, F, A}, _Value, Ts} -> + {trace_ts, Pid, return_from, {erlang, F, A}, _Value, Ts} = M -> + io:format("~p (PrevTs: ~p)~n",[M, PrevTs]), check_ts(TsType, PrevTs, Ts), Ts; Other -> @@ -272,7 +274,8 @@ receive_trace_msg_ts_return_from({trace_ts, Pid, return_from, {erlang,F,A}}, Pre receive_trace_msg_ts_return_to({trace_ts, Pid, return_to, {M,F,A}}, PrevTs, TsType) -> receive - {trace_ts, Pid, return_to, {M, F, A}, Ts} -> + {trace_ts, Pid, return_to, {M, F, A}, Ts} = Msg -> + io:format("~p (PrevTs: ~p)~n",[Msg, PrevTs]), check_ts(TsType, PrevTs, Ts), Ts; Other -> |