Eliminate use of doc and suite clauses

Those clause are obsolete and never used by common_test.

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