diff options
| author | Lukas Larsson <[email protected]> | 2016-04-22 11:32:25 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2016-04-26 16:02:45 +0200 |
| commit | 80512854940a6db33152717246a34bbe68aaa8ed (patch) | |
| tree | a802839c6038921f5f0ce84f37e06c55e6860aa6 | |
| parent | cf2df1b555072a1413f97259abec38b82513dbdc (diff) | |
| download | otp-80512854940a6db33152717246a34bbe68aaa8ed.tar.gz otp-80512854940a6db33152717246a34bbe68aaa8ed.tar.bz2 otp-80512854940a6db33152717246a34bbe68aaa8ed.zip | |
erts: Add test for new procs trace with spawn_link
| -rw-r--r-- | erts/emulator/test/trace_SUITE.erl | 30 |
1 files changed, 29 insertions, 1 deletions
diff --git a/erts/emulator/test/trace_SUITE.erl b/erts/emulator/test/trace_SUITE.erl index 70ead0ecd8..29e043dd5c 100644 --- a/erts/emulator/test/trace_SUITE.erl +++ b/erts/emulator/test/trace_SUITE.erl @@ -27,7 +27,7 @@ -export([all/0, suite/0, link_receive_call_correlation/0, receive_trace/1, link_receive_call_correlation/1, self_send/1, timeout_trace/1, send_trace/1, - procs_trace/1, dist_procs_trace/1, + procs_trace/1, dist_procs_trace/1, procs_new_trace/1, suspend/1, mutual_suspend/1, suspend_exit/1, suspender_exit/1, suspend_system_limit/1, suspend_opts/1, suspend_waiting/1, new_clear/1, existing_clear/1, @@ -456,6 +456,34 @@ dist_procs_trace(Config) when is_list(Config) -> true = stop_node(OtherNode), ok. +%% Test trace(new, How, [procs]). +procs_new_trace(Config) when is_list(Config) -> + Self = self(), + process_flag(trap_exit, true), + %% + Proc1 = spawn_link(?MODULE, process, [Self]), + io:format("Proc1 = ~p ~n", [Proc1]), + %% + 0 = erlang:trace(new, true, [procs]), + + MFA = {?MODULE, process, [Self]}, + %% + %% spawn, link + Proc1 ! {spawn_link_please, Self, MFA}, + Proc3 = receive {spawned, Proc1, P3} -> P3 end, + receive {trace, Proc3, spawned, Proc1, MFA} -> ok end, + receive {trace, Proc3, getting_linked, Proc1} -> ok end, + io:format("Proc3 = ~p ~n", [Proc3]), + receive_nothing(), + %% + %% + %% exit (not linked to tracing process) + Reason1 = make_ref(), + Proc1 ! {exit_please, Reason1}, + receive {'EXIT', Proc1, Reason1} -> ok end, + {trace, Proc3, exit, Reason1} = receive_first_trace(), + receive_nothing(), + ok. |