diff options
| author | Lukas Larsson <[email protected]> | 2016-04-19 11:26:03 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2016-04-26 16:02:44 +0200 |
| commit | d8371a0598ee7c831e8f096cfd5b0af0a0503474 (patch) | |
| tree | e351126fafcf8af24f41d387f14d52394bead425 /erts/emulator/test/match_spec_SUITE.erl | |
| parent | 0547610c0bd1fb0de4352fc8322094722145d9d1 (diff) | |
| download | otp-d8371a0598ee7c831e8f096cfd5b0af0a0503474.tar.gz otp-d8371a0598ee7c831e8f096cfd5b0af0a0503474.tar.bz2 otp-d8371a0598ee7c831e8f096cfd5b0af0a0503474.zip | |
erts: Expand trace tests for refc binaries
Make sure to cover all of the refc binary cases in tracing
Diffstat (limited to 'erts/emulator/test/match_spec_SUITE.erl')
| -rw-r--r-- | erts/emulator/test/match_spec_SUITE.erl | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/erts/emulator/test/match_spec_SUITE.erl b/erts/emulator/test/match_spec_SUITE.erl index ea973276db..6733237b20 100644 --- a/erts/emulator/test/match_spec_SUITE.erl +++ b/erts/emulator/test/match_spec_SUITE.erl @@ -597,16 +597,15 @@ ms_trace3(Config) when is_list(Config) -> end), ok. -ms_trace_dead(doc) -> - ["Test that a dead tracer is removed using ms"]; -ms_trace_dead(suite) -> []; -ms_trace_dead(Config) when is_list(Config) -> +%% Test that a dead tracer is removed using ms +ms_trace_dead(_Config) -> Self = self(), TFun = fun F() -> receive M -> Self ! M, F() end end, {Tracer, MRef} = spawn_monitor(TFun), MetaTracer = spawn_link(TFun), erlang:trace_pattern({?MODULE, f1, '_'}, - [{'_',[],[{trace,[], + [{'_',[],[{message, false}, + {trace,[], [call,{const,{tracer,Tracer}}]}]}], [{meta, MetaTracer}]), erlang:trace_pattern({?MODULE, f2, '_'}, []), @@ -623,8 +622,6 @@ ms_trace_dead(Config) when is_list(Config) -> ?MODULE:f2(3,4), TRef = erlang:trace_delivered(all), receive {trace_delivered, _, TRef} -> ok end, - receive {trace_ts, Self, call, {?MODULE, f1, _}, _} -> ok end, - receive {trace_ts, Self, call, {?MODULE, f1, _}, _} -> ok end, receive M -> ct:fail({unexpected, M}) after 10 -> ok end. %% Test that destructive operations in test bif does not really happen |