diff options
| author | Sverker Eriksson <[email protected]> | 2016-05-04 14:45:05 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-05-04 19:53:38 +0200 |
| commit | 54172674e71caf7da7a0b069c9bd92543e4f705d (patch) | |
| tree | 7897a7dcf376e68ba305b5846201f838fdb89844 /erts/emulator/test/trace_SUITE.erl | |
| parent | 6197aa2498bcb35e331c9112a70635f55047bf26 (diff) | |
| download | otp-54172674e71caf7da7a0b069c9bd92543e4f705d.tar.gz otp-54172674e71caf7da7a0b069c9bd92543e4f705d.tar.bz2 otp-54172674e71caf7da7a0b069c9bd92543e4f705d.zip | |
erts: Add send and 'receive' to trace_info/2
to obtain match specs
Diffstat (limited to 'erts/emulator/test/trace_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/trace_SUITE.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/erts/emulator/test/trace_SUITE.erl b/erts/emulator/test/trace_SUITE.erl index 1930332691..3d7cb41fc0 100644 --- a/erts/emulator/test/trace_SUITE.erl +++ b/erts/emulator/test/trace_SUITE.erl @@ -495,7 +495,10 @@ send_trace(Config) when is_list(Config) -> ok. set_trace_pattern(_, no, _) -> 0; -set_trace_pattern(MSA, Pat, Flg) -> erlang:trace_pattern(MSA, Pat, Flg). +set_trace_pattern(MFA, Pat, Flg) -> + R = erlang:trace_pattern(MFA, Pat, Flg), + {match_spec, Pat} = erlang:trace_info(MFA, match_spec), + R. %% Test trace(Pid, How, [procs]). procs_trace(Config) when is_list(Config) -> |