diff options
| author | Sverker Eriksson <[email protected]> | 2016-06-30 20:48:01 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-08-30 15:55:32 +0200 |
| commit | d419ca5917d4d27afe0518e5e5c444af5b11f480 (patch) | |
| tree | 28e3c7edcce4ed8e39ff634b5b701dd17fd7e8c1 | |
| parent | 037bde5b479c18711a32713751f9ae79b29a8741 (diff) | |
| download | otp-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.erl | 14 |
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", |