aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2016-06-30 20:48:01 +0200
committerSverker Eriksson <[email protected]>2016-08-30 15:55:32 +0200
commitd419ca5917d4d27afe0518e5e5c444af5b11f480 (patch)
tree28e3c7edcce4ed8e39ff634b5b701dd17fd7e8c1
parent037bde5b479c18711a32713751f9ae79b29a8741 (diff)
downloadotp-d419ca5917d4d27afe0518e5e5c444af5b11f480.tar.gz
otp-d419ca5917d4d27afe0518e5e5c444af5b11f480.tar.bz2
otp-d419ca5917d4d27afe0518e5e5c444af5b11f480.zip
erts: Improve z_SUITE:core_files
to print name of test log dir in same dir as core, which will indicate offending application.
-rw-r--r--erts/test/z_SUITE.erl14
1 files changed, 13 insertions, 1 deletions
diff --git a/erts/test/z_SUITE.erl b/erts/test/z_SUITE.erl
index 281a47134f..d474c71c4f 100644
--- a/erts/test/z_SUITE.erl
+++ b/erts/test/z_SUITE.erl
@@ -214,7 +214,19 @@ dump_core(#core_search_conf{ cerl = Cerl }, Core) ->
format_core(Conf, {ignore, Core}) ->
format_core(Conf, Core, "[ignored] ");
format_core(Conf, Core) ->
- format_core(Conf, Core, "").
+ format_core(Conf, Core, ""),
+
+ %% Try print (log dir) name of offending application
+ CoreDir = filename:dirname(Core),
+ lists:foreach(fun(TestDir) ->
+ case filelib:is_dir(filename:join(CoreDir,TestDir)) of
+ true ->
+ io:format(" from ~s~n", [TestDir]);
+ false ->
+ no
+ end
+ end,
+ filelib:wildcard("*.logs", CoreDir)).
format_core(#core_search_conf{file = false}, Core, Ignore) ->
io:format(" ~s~s " ++ time_fstr() ++ "~s~n",