Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:19
erlang
0753-runtime_tools-dbg-stop_clear-should-clear-...
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File 0753-runtime_tools-dbg-stop_clear-should-clear-trace-patt.patch of Package erlang
From 2df0fa8bed63e37994e657adb82dbc1891be32b2 Mon Sep 17 00:00:00 2001 From: Lukas Larsson <lukas@erlang.org> Date: Tue, 3 Sep 2019 15:52:48 +0200 Subject: [PATCH] runtime_tools: dbg:stop_clear should clear trace pattern events Also make sure that the dbg_SUITE cleans up after itself so that it does not interfere with the lttng suite coming next. --- lib/runtime_tools/src/dbg.erl | 2 ++ lib/runtime_tools/test/dbg_SUITE.erl | 46 ++++++++++++++++++++---------------- 2 files changed, 28 insertions(+), 20 deletions(-) diff --git a/lib/runtime_tools/src/dbg.erl b/lib/runtime_tools/src/dbg.erl index 92938ed5c1..21e180e854 100644 --- a/lib/runtime_tools/src/dbg.erl +++ b/lib/runtime_tools/src/dbg.erl @@ -604,6 +604,8 @@ stop() -> stop_clear() -> {ok, _} = ctp(), + {ok, _} = ctpe('receive'), + {ok, _} = ctpe('send'), stop(). %%% Calling the server. diff --git a/lib/runtime_tools/test/dbg_SUITE.erl b/lib/runtime_tools/test/dbg_SUITE.erl index 98cbc0360f..4d319c29c1 100644 --- a/lib/runtime_tools/test/dbg_SUITE.erl +++ b/lib/runtime_tools/test/dbg_SUITE.erl @@ -20,7 +20,7 @@ -module(dbg_SUITE). %% Test functions --export([all/0, suite/0, +-export([all/0, suite/0, init_per_suite/1, end_per_suite/1, big/1, tiny/1, simple/1, message/1, distributed/1, port/1, send/1, recv/1, ip_port/1, file_port/1, file_port2/1, file_port_schedfix/1, @@ -46,6 +46,12 @@ all() -> local_trace, saved_patterns, tracer_exit_on_stop, erl_tracer, distributed_erl_tracer]. +init_per_suite(Config) -> + Config. + +end_per_suite(_Config) -> + dbg:stop_clear(), + ok. %% Rudimentary interface test big(Config) when is_list(Config) -> @@ -83,7 +89,7 @@ big(Config) when is_list(Config) -> ok=file:set_cwd(OldCurDir) after - dbg:stop() + dbg:stop_clear() end, ok. @@ -114,7 +120,7 @@ tiny(Config) when is_list(Config) -> failure end after - ok = dbg:stop(), + dbg:stop_clear(), ok = file:set_cwd(OldCurDir) end, ok. @@ -130,7 +136,7 @@ simple(Config) when is_list(Config) -> S = self(), [{trace,S,call,{dbg,ltp,[]}}] = flush() after - dbg:stop() + dbg:stop_clear() end, ok. @@ -146,7 +152,7 @@ message(Config) when is_list(Config) -> ok = dbg:ltp(), ok = dbg:ln() after - stop() + dbg:stop_clear() end, S = self(), [{trace,S,call,{dbg,ltp,[]},S}, @@ -229,7 +235,7 @@ send(Config) when is_list(Config) -> ok after - stop() + dbg:stop_clear() end. send_test(Pid, Pattern, Msg, TraceEvent) -> @@ -340,7 +346,7 @@ recv(Config) when is_list(Config) -> ok after - stop() + dbg:stop_clear() end. recv_test(Pid, Pattern, Msg, TraceEvent) -> @@ -404,8 +410,8 @@ distributed(Config) when is_list(Config) -> %% stop() after - stop_slave(Node), - stop() + dbg:stop_clear(), + stop_slave(Node) end, ok. @@ -455,7 +461,7 @@ local_trace(Config) when is_list(Config) -> {dbg_SUITE,not_exported,1}, {error,badarith}}] = flush() after - stop() + dbg:stop_clear() end, ok. @@ -480,7 +486,7 @@ port(Config) when is_list(Config) -> {trace,Port,closed,normal}, {trace,Port,unlink,S}] = flush() after - dbg:stop() + dbg:stop_clear() end, ok. @@ -506,7 +512,7 @@ saved_patterns(Config) when is_list(Config) -> S = self(), [{trace,S,call,{dbg,ltp,[]},blahonga}] = flush() after - stop() + dbg:stop_clear() end, ok. @@ -538,7 +544,7 @@ ip_port(Config) when is_list(Config) -> [{trace,S,call,{dbg,ltp,[]},S}, {trace,S,call,{dbg,ln,[]},hej}] = flush() after - stop() + dbg:stop_clear() end, ok. @@ -554,7 +560,7 @@ ip_port_busy(Config) when is_list(Config) -> io:format("Error reason = ~p~n", [Reason]), true = port_close(Port) after - dbg:stop() + dbg:stop_clear() end, ok. @@ -584,7 +590,7 @@ file_port(Config) when is_list(Config) -> {trace,S,call,{dbg,ln,[]},hej}, end_of_trace] = flush() after - stop(), + dbg:stop_clear(), file:delete(FName) end, ok. @@ -617,7 +623,7 @@ file_port2(Config) when is_list(Config) -> stop(), [] = flush() after - stop(), + dbg:stop_clear(), file:delete(FName) end, ok. @@ -688,7 +694,7 @@ wrap_port(Config) when is_list(Config) -> %% lists:map(fun(F) -> file:delete(F) end, Files) after - stop() + dbg:stop_clear() end, ok. @@ -763,7 +769,7 @@ wrap_port_time(Config) when is_list(Config) -> end_of_trace] = flush(), lists:map(fun(F) -> file:delete(F) end, Files) after - stop() + dbg:stop_clear() end, ok. @@ -789,7 +795,7 @@ with_seq_trace(Config) when is_list(Config) -> {seq_trace,0,{send,_,Server,S,{dbg,{ok,Tracer}}}}] = flush() after - stop() + dbg:stop_clear() end, ok. @@ -800,7 +806,7 @@ dead_suspend(Config) when is_list(Config) -> try survived = run_dead_suspend() after - stop() + dbg:stop_clear() end. run_dead_suspend() -> -- 2.16.4
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor