diff options
author | Björn Gustavsson <bjorn@erlang.org> | 2012-10-01 14:10:56 +0200 |
---|---|---|
committer | Björn Gustavsson <bjorn@erlang.org> | 2012-10-23 15:45:58 +0200 |
commit | cea3ce283d4746d7a298f85fbb4b1a1547649a18 (patch) | |
tree | 82a8c6265b5a7b84298dbab7d55fe0e4c7693ab4 /lib/test_server/src/test_server_ctrl.erl | |
parent | 320d1332594e1211ccee8167589030b31bccc3aa (diff) | |
download | otp-cea3ce283d4746d7a298f85fbb4b1a1547649a18.tar.gz otp-cea3ce283d4746d7a298f85fbb4b1a1547649a18.tar.bz2 otp-cea3ce283d4746d7a298f85fbb4b1a1547649a18.zip |
Eliminate unexpected I/O to the minor log file
Diffstat (limited to 'lib/test_server/src/test_server_ctrl.erl')
-rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index 7dd1b38bc2..4b832fcefe 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -1419,14 +1419,12 @@ init_tester(Mod, Func, Args, Dir, Name, {_,_,MinLev}=Levels, catch stop_extra_tools(StartedExtraTools), case Result of {'EXIT',test_suites_done} -> - print(25, "DONE, normal exit", []); + ok; {'EXIT',_Pid,Reason} -> print(1, "EXIT, reason ~p", [Reason]); {'EXIT',Reason} -> report_severe_error(Reason), - print(1, "EXIT, reason ~p", [Reason]); - _Other -> - print(25, "DONE", []) + print(1, "EXIT, reason ~p", [Reason]) end, Time = TimeMy/1000000, SuccessStr = @@ -1930,7 +1928,7 @@ start_log_file() -> PrivDir = filename:join(TestDir1, ?priv_dir), ok = file:make_dir(PrivDir), put(test_server_priv_dir,PrivDir++"/"), - print_timestamp(13,"Suite started at "), + print_timestamp(major, "Suite started at "), LogInfo = [{topdir,Dir},{rundir,lists:flatten(TestDir1)}], test_server_sup:framework_call(report, [loginfo,LogInfo]), |