Merge remote branch 'origin/peppe/common_test/test_server_h_problem' into maint

* origin/peppe/common_test/test_server_h_problem:
  Remove the obsolete test_server_h error handler
  Tag sasl and error reports with suite, group, and function in log

Conflicts:
	lib/common_test/src/cth_log_redirect.erl

OTP-11263

5 files changed, 0 insertions, 163 deletions

diff --git a/lib/test_server/src/Makefile b/lib/test_server/src/Makefile
index ebc5f5b71b..ab4dd4d95d 100644
--- a/lib/test_server/src/Makefile
+++ b/lib/test_server/src/Makefile
@@ -45,7 +45,6 @@ MODULES= test_server_ctrl \
 	 test_server_node \
 	 test_server \
 	 test_server_sup \
-	 test_server_h \
 	 erl2html2
 
 TS_MODULES= \
diff --git a/lib/test_server/src/test_server.app.src b/lib/test_server/src/test_server.app.src
index 163f370a47..42e78ed279 100644
--- a/lib/test_server/src/test_server.app.src
+++ b/lib/test_server/src/test_server.app.src
@@ -23,7 +23,6 @@
 	     erl2html2,
 	     test_server_ctrl,
 	     test_server,
-	     test_server_h,
 	     test_server_io,
 	     test_server_node,
 	     test_server_sup
diff --git a/lib/test_server/src/test_server.erl b/lib/test_server/src/test_server.erl
index c350f758ce..6ddb2b615f 100644
--- a/lib/test_server/src/test_server.erl
+++ b/lib/test_server/src/test_server.erl
@@ -389,7 +389,6 @@ run_test_case_apply({CaseNum,Mod,Func,Args,Name,
 	    os:putenv("VALGRIND_LOGFILE_INFIX",atom_to_list(Mod)++"."++
 		      atom_to_list(Func)++"-")
     end,
-    test_server_h:testcase({Mod,Func,1}),
     ProcBef = erlang:system_info(process_count),
     Result = run_test_case_apply(Mod, Func, Args, Name, RunInit,
 				 TimetrapData),
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl
index ffa21d054c..4a10684ea5 100644
--- a/lib/test_server/src/test_server_ctrl.erl
+++ b/lib/test_server/src/test_server_ctrl.erl
@@ -479,12 +479,6 @@ init([]) ->
 	    test_server_sup:call_trace(TraceSpec)
     end,
     process_flag(trap_exit, true),
-    case lists:keysearch(sasl, 1, application:which_applications()) of
-	{value,_} ->
-	    test_server_h:install();
-	false ->
-	    ok
-    end,
     %% copy format_exception setting from init arg to application environment
     case init:get_argument(test_server_format_exception) of
 	{ok,[[TSFE]]} ->
@@ -1067,12 +1061,6 @@ terminate(_Reason, State) ->
     end,
     kill_all_jobs(State#state.jobs),
     test_server_node:kill_nodes(),
-    case lists:keysearch(sasl, 1, application:which_applications()) of
-	{value,_} ->
-	    test_server_h:restore();
-	_ ->
-	    ok
-    end,
     ok.
 
 kill_all_jobs([{_Name,JobPid}|Jobs]) ->
diff --git a/lib/test_server/src/test_server_h.erl b/lib/test_server/src/test_server_h.erl
deleted file mode 100644
index 24063ddb10..0000000000
--- a/lib/test_server/src/test_server_h.erl
+++ /dev/null
@@ -1,148 +0,0 @@
-%%
-%% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 2005-2013. All Rights Reserved.
-%% 
-%% The contents of this file are subject to the Erlang Public License,
-%% Version 1.1, (the "License"); you may not use this file except in
-%% compliance with the License. You should have received a copy of the
-%% Erlang Public License along with this software. If not, it can be
-%% retrieved online at http://www.erlang.org/.
-%% 
-%% Software distributed under the License is distributed on an "AS IS"
-%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
-%% the License for the specific language governing rights and limitations
-%% under the License.
-%% 
-%% %CopyrightEnd%
-%%
-
--module(test_server_h).
--behaviour(gen_event).
-
-%% API
--export([install/0, restore/0]).
--export([testcase/1]).
-
-%% gen_event callbacks
--export([init/1, handle_event/2, handle_call/2, 
-	 handle_info/2, terminate/2, code_change/3]).
-
--record(state, {kernel, sasl, testcase}).
-
-%%====================================================================
-%% API
-%%====================================================================
-
-install() ->
-    case gen_event:add_handler(error_logger, ?MODULE, []) of
-	ok ->
-	    error_logger:delete_report_handler(sasl_report_tty_h),
-	    gen_event:delete_handler(error_logger, error_logger_tty_h, []),
-	    ok;
-	Error ->
-	    Error
-    end.
-
-restore() ->
-    gen_event:add_handler(error_logger, error_logger_tty_h, []),
-    error_logger:add_report_handler(sasl_report_tty_h, all),
-    gen_event:delete_handler(error_logger, ?MODULE, []).
-
-testcase(Testcase) ->
-    gen_event:call(error_logger, ?MODULE, {set_testcase, Testcase}, 10*60*1000).
-
-%%====================================================================
-%% gen_event callbacks
-%%====================================================================
-
-init([]) ->
-
-    %% error_logger_tty_h initialization
-    User = set_group_leader(),
-
-    %% sasl_report_tty_h initialization
-    Type = all,
-
-    {ok, #state{kernel={User, []}, sasl=Type}}.
-
-set_group_leader() ->
-    case whereis(user) of
-	User when is_pid(User) ->
-	    link(User),
-	    group_leader(User, self()),
-	    User;
-	_ ->
-	    false
-    end.
-
-handle_event({_Type, GL, _Msg}, State) when node(GL)/=node() ->
-    {ok, State};
-handle_event({Tag, _GL, {_Pid, Type, _Report}} = Event, State) ->
-    SASL = lists:keyfind(sasl, 1, application:which_applications()),
-    case report_receiver(Tag, Type) of
-	sasl when SASL /= false ->
-	    {ok,ErrLogType} = application:get_env(sasl, errlog_type),
-	    SReport = sasl_report:format_report(group_leader(), ErrLogType,
-						tag_event(Event)),
-	    if is_list(SReport) ->
-		    tag(State#state.testcase),
-		    sasl_report_tty_h:handle_event(Event,
-						   State#state.sasl);
-	       true -> %% Report is an atom if no logging is to be done
-		    ignore
-	    end;
-	sasl -> %% SASL not running
-	    ignore;
-	kernel ->
-	    tag(State#state.testcase),
-	    error_logger_tty_h:handle_event(Event, State#state.kernel);
-	none ->
-	    ignore
-    end,
-    {ok, State};
-handle_event(_Event, State) ->
-    {ok, State}.
-
-handle_call({set_testcase, Testcase}, State) ->
-    {ok, ok, State#state{testcase=Testcase}};
-handle_call(_Query, _State) ->
-    {error, bad_query}.
-
-handle_info({emulator,GL,_Chars}=Event, State) when node(GL)==node() ->
-    tag(State#state.testcase),
-    error_logger_tty_h:handle_info(Event, State#state.kernel),
-    {ok, State};
-handle_info(_Msg, State) ->
-    {ok, State}.
-
-terminate(_Reason, _State) ->
-    ok.
-
-code_change(_OldVsn, State, _Extra) ->
-    {ok, State}.
-
-report_receiver(error_report, supervisor_report) -> sasl;
-report_receiver(error_report, crash_report) -> sasl;
-report_receiver(info_report, progress) -> sasl;
-report_receiver(error, _) -> kernel;
-report_receiver(error_report, _) -> kernel;
-report_receiver(warning_msg, _) -> kernel;
-report_receiver(warning_report, _) -> kernel;
-report_receiver(info, _) -> kernel;
-report_receiver(info_msg, _) -> kernel;
-report_receiver(info_report,Tuple)
-  when is_tuple(Tuple) andalso
-       (element(1,Tuple)==ct_connection orelse
-	element(1,Tuple)==conn_log) ->
-    none;
-report_receiver(info_report, _) -> kernel;
-report_receiver(_, _) -> none.
-
-tag({M,F,A}) when is_atom(M), is_atom(F), is_integer(A) ->
-    io:format(user, "~n=TESTCASE: ~w:~w/~w", [M,F,A]);
-tag(Testcase) ->
-    io:format(user, "~n=TESTCASE: ~p", [Testcase]).
-
-tag_event(Event) ->
-    {calendar:local_time(), Event}.