diff options
| author | Sverker Eriksson <[email protected]> | 2016-08-30 15:59:08 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-08-30 15:59:08 +0200 |
| commit | 0caa1d3cda20a87b33dbb1805c30315bee7b79a8 (patch) | |
| tree | ca15564ddf91c0b90f6f10a67d410ded0be79349 | |
| parent | 388bde3cce52302bd8773dd80fecf4f9f25f9568 (diff) | |
| parent | d419ca5917d4d27afe0518e5e5c444af5b11f480 (diff) | |
| download | otp-0caa1d3cda20a87b33dbb1805c30315bee7b79a8.tar.gz otp-0caa1d3cda20a87b33dbb1805c30315bee7b79a8.tar.bz2 otp-0caa1d3cda20a87b33dbb1805c30315bee7b79a8.zip | |
Merge branch 'maint'
| -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", |