diff options
author | Lukas Larsson <[email protected]> | 2014-06-05 09:06:53 +0200 |
---|---|---|
committer | Lukas Larsson <[email protected]> | 2014-06-05 09:06:53 +0200 |
commit | da63a1a2eb360c2bc212ab0f38ea1ef2609fbd60 (patch) | |
tree | 93c0c9a0490725077e47b9b7147a15fb6d7d4ef1 /erts/emulator/test | |
parent | c9e36ab16034bb7fe71f772df6bba22070976bbf (diff) | |
parent | 1e377a3c944518ecdfe82c113fe73de48a44519c (diff) | |
download | otp-da63a1a2eb360c2bc212ab0f38ea1ef2609fbd60.tar.gz otp-da63a1a2eb360c2bc212ab0f38ea1ef2609fbd60.tar.bz2 otp-da63a1a2eb360c2bc212ab0f38ea1ef2609fbd60.zip |
Merge branch 'lukas/erts/fix_trace_on_registered_procs/OTP-11968' into maint
* lukas/erts/fix_trace_on_registered_procs/OTP-11968:
erts: tracing on send now works for registered processes
Diffstat (limited to 'erts/emulator/test')
-rw-r--r-- | erts/emulator/test/trace_SUITE.erl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/erts/emulator/test/trace_SUITE.erl b/erts/emulator/test/trace_SUITE.erl index 2251575e5a..4d7598cf1f 100644 --- a/erts/emulator/test/trace_SUITE.erl +++ b/erts/emulator/test/trace_SUITE.erl @@ -181,6 +181,13 @@ send_trace(Config) when is_list(Config) -> ?line {trace, Sender, send, to_receiver, Receiver} = receive_first(), ?line receive_nothing(), + %% Check that a message sent to another registered process is traced. + register(?MODULE,Receiver), + Sender ! {send_please, ?MODULE, to_receiver}, + {trace, Sender, send, to_receiver, ?MODULE} = receive_first(), + receive_nothing(), + unregister(?MODULE), + %% Check that a message sent to this process is traced. ?line Sender ! {send_please, self(), to_myself}, ?line receive to_myself -> ok end, @@ -188,6 +195,21 @@ send_trace(Config) when is_list(Config) -> ?line {trace, Sender, send, to_myself, Self} = receive_first(), ?line receive_nothing(), + %% Check that a message sent to dead process is traced. + {Pid,Ref} = spawn_monitor(fun() -> ok end), + receive {'DOWN',Ref,_,_,_} -> ok end, + Sender ! {send_please, Pid, to_dead}, + {trace, Sender, send_to_non_existing_process, to_dead, Pid} = receive_first(), + receive_nothing(), + + %% Check that a message sent to unknown registrated process is traced. + BadargSender = fun_spawn(fun sender/0), + 1 = erlang:trace(BadargSender, true, [send]), + unlink(BadargSender), + BadargSender ! {send_please, not_registered, to_unknown}, + {trace, BadargSender, send, to_unknown, not_registered} = receive_first(), + receive_nothing(), + %% Another process should not be able to trace Sender. ?line Intruder = fun_spawn(fun() -> erlang:trace(Sender, true, [send]) end), ?line {'EXIT', Intruder, {badarg, _}} = receive_first(), |