aboutsummaryrefslogtreecommitdiffstats
path: root/lib/runtime_tools/test/dbg_SUITE.erl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/runtime_tools/test/dbg_SUITE.erl')
-rw-r--r--lib/runtime_tools/test/dbg_SUITE.erl83
1 files changed, 17 insertions, 66 deletions
diff --git a/lib/runtime_tools/test/dbg_SUITE.erl b/lib/runtime_tools/test/dbg_SUITE.erl
index e049ca5048..9c9d6ca352 100644
--- a/lib/runtime_tools/test/dbg_SUITE.erl
+++ b/lib/runtime_tools/test/dbg_SUITE.erl
@@ -45,8 +45,7 @@ all() ->
erl_tracer, distributed_erl_tracer].
-big(suite) -> [];
-big(doc) -> ["Rudimentary interface test"];
+%% Rudimentary interface test
big(Config) when is_list(Config) ->
{ok,OldCurDir} = file:get_cwd(),
Datadir=proplists:get_value(data_dir, Config),
@@ -87,8 +86,7 @@ big(Config) when is_list(Config) ->
ok.
-tiny(suite) -> [];
-tiny(doc) -> ["Rudimentary interface test"];
+%% Rudimentary interface test
tiny(Config) when is_list(Config) ->
{ok,OldCurDir} = file:get_cwd(),
Datadir=proplists:get_value(data_dir, Config),
@@ -119,10 +117,7 @@ tiny(Config) when is_list(Config) ->
end,
ok.
-simple(suite) ->
- [];
-simple(doc) ->
- ["Simple interface test with own handler"];
+%% Simple interface test with own handler
simple(Config) when is_list(Config) ->
try
start(),
@@ -137,10 +132,7 @@ simple(Config) when is_list(Config) ->
end,
ok.
-message(suite) ->
- [];
-message(doc) ->
- ["Simple interface test with pam code that appends a message"];
+%% Simple interface test with pam code that appends a message
message(Config) when is_list(Config) ->
{ok, _} = start(),
try
@@ -159,10 +151,7 @@ message(Config) when is_list(Config) ->
{trace,S,call,{dbg,ln,[]},S}] = flush(),
ok.
-distributed(suite) ->
- [];
-distributed(doc) ->
- ["Simple test of distributed tracing"];
+%% Simple test of distributed tracing
distributed(Config) when is_list(Config) ->
{ok, _} = start(),
Node = start_slave(),
@@ -199,10 +188,7 @@ distributed(Config) when is_list(Config) ->
ok.
-local_trace(suite) ->
- [];
-local_trace(doc) ->
- ["Tests tracing of local function calls."];
+%% Tests tracing of local function calls.
local_trace(Config) when is_list(Config) ->
{ok, _} = start(),
try
@@ -251,10 +237,7 @@ local_trace(Config) when is_list(Config) ->
end,
ok.
-port(suite) ->
- [];
-port(doc) ->
- ["Test that tracing on port works"];
+%% Test that tracing on port works
port(Config) when is_list(Config) ->
try
S = self(),
@@ -280,10 +263,7 @@ port(Config) when is_list(Config) ->
end,
ok.
-saved_patterns(suite) ->
- [];
-saved_patterns(doc) ->
- ["Tests saving of match_spec's."];
+%% Tests saving of match_spec's.
saved_patterns(Config) when is_list(Config) ->
dbg:stop(),
{ok,[{saved,1}]} =
@@ -317,10 +297,7 @@ not_exported(N) ->
exported(N) ->
not_exported(N).
-ip_port(suite) ->
- [];
-ip_port(doc) ->
- ["Test tracing to IP port"];
+%% Test tracing to IP port
ip_port(Config) when is_list(Config) ->
stop(),
Port = dbg:trace_port(ip, 0),
@@ -346,11 +323,7 @@ ip_port(Config) when is_list(Config) ->
-ip_port_busy(suite) ->
- [];
-ip_port_busy(doc) ->
- ["Test that the dbg server does not hang if the tracer don't start ",
- "(OTP-3592)"];
+%% Test that the dbg server does not hang if the tracer don't start (OTP-3592)
ip_port_busy(Config) when is_list(Config) ->
stop(),
Tracer = dbg:trace_port(ip, 4745),
@@ -366,10 +339,7 @@ ip_port_busy(Config) when is_list(Config) ->
-file_port(suite) ->
- [];
-file_port(doc) ->
- ["Test tracing to file port (simple)"];
+%% Test tracing to file port (simple)
file_port(Config) when is_list(Config) ->
stop(),
{A,B,C} = erlang:now(),
@@ -398,10 +368,7 @@ file_port(Config) when is_list(Config) ->
end,
ok.
-file_port2(suite) ->
- [];
-file_port2(doc) ->
- ["Test tracing to file port with 'follow_file'"];
+%% Test tracing to file port with 'follow_file'
file_port2(Config) when is_list(Config) ->
stop(),
{A,B,C} = erlang:now(),
@@ -434,10 +401,7 @@ file_port2(Config) when is_list(Config) ->
end,
ok.
-file_port_schedfix(suite) ->
- [];
-file_port_schedfix(doc) ->
- ["Test that the scheduling timestamp fix for trace flag 'running' works."];
+%% Test that the scheduling timestamp fix for trace flag 'running' works.
file_port_schedfix(Config) when is_list(Config) ->
case (catch erlang:system_info(smp_support)) of
true ->
@@ -538,10 +502,7 @@ file_port_schedfix1(Config) when is_list(Config) ->
{comment, BottomLine}
end.
-wrap_port(suite) ->
- [];
-wrap_port(doc) ->
- ["Test tracing to wrapping file port"];
+%% Test tracing to wrapping file port
wrap_port(Config) when is_list(Config) ->
Self = self(),
stop(),
@@ -636,10 +597,7 @@ wrap_port_result([{trace, S, call, {?MODULE, tracee2, [M]}, hej},
wrap_port_result(Tail, S, M-1).
-wrap_port_time(suite) ->
- [];
-wrap_port_time(doc) ->
- ["Test tracing to time limited wrapping file port"];
+%% Test tracing to time limited wrapping file port
wrap_port_time(Config) when is_list(Config) ->
stop(),
{A,B,C} = erlang:now(),
@@ -689,10 +647,7 @@ wrap_port_time(Config) when is_list(Config) ->
end,
ok.
-with_seq_trace(suite) ->
- [];
-with_seq_trace(doc) ->
- ["Test ordinary tracing combined with seq_trace"];
+%% Test ordinary tracing combined with seq_trace
with_seq_trace(Config) when is_list(Config) ->
try
{ok, Server} = start(),
@@ -718,12 +673,8 @@ with_seq_trace(Config) when is_list(Config) ->
end,
ok.
-dead_suspend(suite) ->
- [];
-dead_suspend(doc) ->
- ["Test that trace messages concerning a now dead process does "
- "not crash dbg."];
+%% Test that trace messages concerning a now dead process does not crash dbg.
dead_suspend(Config) when is_list(Config) ->
start(),
try