3 files changed, 221 insertions, 1 deletions
diff --git a/lib/sasl/test/Makefile b/lib/sasl/test/Makefile
index 86fc57abfc..86976def6a 100644
--- a/lib/sasl/test/Makefile
+++ b/lib/sasl/test/Makefile
@@ -29,11 +29,13 @@ MODULES= \
 	alarm_handler_SUITE \
 	installer \
 	release_handler_SUITE \
+	sasl_report_SUITE \
+	sasl_report_suite_supervisor \
 	systools_SUITE \
 	systools_rc_SUITE \
 	overload_SUITE \
 	rb_SUITE \
-	rh_test_lib
+	rh_test_lib \
 
 ERL_FILES= $(MODULES:%=%.erl)
 
diff --git a/lib/sasl/test/sasl_report_SUITE.erl b/lib/sasl/test/sasl_report_SUITE.erl
new file mode 100644
index 0000000000..940234f152
--- /dev/null
+++ b/lib/sasl/test/sasl_report_SUITE.erl
@@ -0,0 +1,141 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2015. All Rights Reserved.
+%%
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
+%%
+%%     http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
+%%
+%% %CopyrightEnd%
+%%
+-module(sasl_report_SUITE).
+-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
+	 init_per_group/2,end_per_group/2]).
+-export([gen_server_crash/1]).
+
+-export([crash_me/0,start_link/0,init/1,handle_cast/2,terminate/2]).
+
+-include_lib("test_server/include/test_server.hrl").
+
+suite() -> [{ct_hooks,[ts_install_cth]}].
+
+all() ->
+    [gen_server_crash].
+
+groups() ->
+    [].
+
+init_per_suite(Config) ->
+    Config.
+
+end_per_suite(_Config) ->
+    ok.
+
+init_per_group(_GroupName, Config) ->
+    Config.
+
+end_per_group(_GroupName, Config) ->
+    Config.
+
+gen_server_crash(Config) ->
+    try
+	do_gen_server_crash(Config)
+    after
+	error_logger:tty(true),
+	ok = application:unset_env(sasl, sasl_error_logger),
+	ok = application:unset_env(kernel, error_logger_format_depth),
+	error_logger:add_report_handler(cth_log_redirect)
+    end,
+    ok.
+
+do_gen_server_crash(Config) ->
+    PrivDir = ?config(priv_dir, Config),
+    LogDir = filename:join(PrivDir, ?MODULE),
+    KernelLog = filename:join(LogDir, "kernel.log"),
+    SaslLog = filename:join(LogDir, "sasl.log"),
+    ok = filelib:ensure_dir(SaslLog),
+
+    error_logger:delete_report_handler(cth_log_redirect),
+    error_logger:tty(false),
+    application:stop(sasl),
+    ok = application:set_env(sasl, sasl_error_logger, {file,SaslLog},
+			     [{persistent,true}]),
+    application:set_env(kernel, error_logger_format_depth, 30),
+    error_logger:logfile({open,KernelLog}),
+    application:start(sasl),
+    io:format("~p\n", [gen_event:which_handlers(error_logger)]),
+
+    crash_me(),
+
+    error_logger:logfile(close),
+
+    check_file(KernelLog, 70000, 150000),
+    check_file(SaslLog, 50000, 100000),
+
+    ok.
+
+check_file(File, Min, Max) ->
+    {ok,Bin} = file:read_file(File),
+    Base = filename:basename(File),
+    io:format("*** Contents of ~s ***\n", [Base]),
+    io:put_chars([Bin,"\n"]),
+    Sz = byte_size(Bin),
+    io:format("Size: ~p (allowed range is ~p..~p)\n",
+	      [Sz,Min,Max]),
+    if
+	Sz < Min ->
+	    %% Truncated? Other problem?
+	    ?t:fail({too_short,Base});
+	Sz > Max ->
+	    %% Truncation doesn't work?
+	    ?t:fail({too_big,Base});
+	true ->
+	    ok
+    end.
+
+%%%
+%%% gen_server that crashes.
+%%%
+
+crash_me() ->
+    {ok,SuperPid} = supervisor:start_link(sasl_report_suite_supervisor, []),
+    [{Id,Pid,_,_}] = supervisor:which_children(SuperPid),
+    HugeData = gb_sets:from_list(lists:seq(1, 100000)),
+    gen_server:cast(Pid, HugeData),
+    Ref = monitor(process, Pid),
+    receive
+	{'DOWN',Ref,process,Pid,_} ->
+	    supervisor:terminate_child(SuperPid, Id),
+	    unlink(SuperPid),
+	    exit(SuperPid, kill),
+	    ok
+    end.
+
+start_link() ->
+    gen_server:start_link(?MODULE, [], []).
+
+init(_) ->
+    St = <<0:100000/unit:8>>,
+    {ok,St}.
+
+handle_cast(Big, St) ->
+    Seq = lists:seq(1, 10000),
+    self() ! Seq,
+    self() ! Seq,
+    self() ! Seq,
+    self() ! Seq,
+    self() ! Seq,
+    x = Big,
+    {noreply,St}.
+
+terminate(_, _) ->
+    ok.
diff --git a/lib/sasl/test/sasl_report_suite_supervisor.erl b/lib/sasl/test/sasl_report_suite_supervisor.erl
new file mode 100644
index 0000000000..bc92a40af2
--- /dev/null
+++ b/lib/sasl/test/sasl_report_suite_supervisor.erl
@@ -0,0 +1,77 @@
+%%
+%% %CopyrightBegin%
+%%
+%% Copyright Ericsson AB 2015. All Rights Reserved.
+%%
+%% Licensed under the Apache License, Version 2.0 (the "License");
+%% you may not use this file except in compliance with the License.
+%% You may obtain a copy of the License at
+%%
+%%     http://www.apache.org/licenses/LICENSE-2.0
+%%
+%% Unless required by applicable law or agreed to in writing, software
+%% distributed under the License is distributed on an "AS IS" BASIS,
+%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+%% See the License for the specific language governing permissions and
+%% limitations under the License.
+%%
+%% %CopyrightEnd%
+%%
+
+-module(sasl_report_suite_supervisor).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+-define(SERVER, ?MODULE).
+
+%%%===================================================================
+%%% API functions
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @doc
+%% Starts the supervisor
+%%
+%% @spec start_link() -> {ok, Pid} | ignore | {error, Error}
+%% @end
+%%--------------------------------------------------------------------
+start_link() ->
+    supervisor:start_link({local, ?SERVER}, ?MODULE, []).
+
+%%%===================================================================
+%%% Supervisor callbacks
+%%%===================================================================
+
+%%--------------------------------------------------------------------
+%% @private
+%% @doc
+%% Whenever a supervisor is started using supervisor:start_link/[2,3],
+%% this function is called by the new process to find out about
+%% restart strategy, maximum restart intensity, and child
+%% specifications.
+%%
+%% @spec init(Args) -> {ok, {SupFlags, [ChildSpec]}} |
+%%                     ignore |
+%%                     {error, Reason}
+%% @end
+%%--------------------------------------------------------------------
+init([]) ->
+
+    SupFlags = #{strategy => one_for_one,
+		 intensity => 1,
+		 period => 5},
+
+    AChild = #{id => 'sasl_report_suit_supervisor',
+	       start => {sasl_report_SUITE, start_link, []},
+	       restart => permanent,
+	       shutdown => 5000,
+	       type => worker,
+	       modules => [sasl_report_SUITE]},
+
+    {ok, {SupFlags, [AChild]}}.