diff options
author | Dan Gudmundsson <[email protected]> | 2012-09-19 15:19:59 +0200 |
---|---|---|
committer | Dan Gudmundsson <[email protected]> | 2012-09-19 15:19:59 +0200 |
commit | 8d78a10998ae7d87dfef4427a1be922aba46859a (patch) | |
tree | 13e5ed956164b76397ed1e0769d565c9dcc8d3f2 | |
parent | b58ce62a0cf296ca8cd8cd77b053bc70ecf28758 (diff) | |
download | otp-8d78a10998ae7d87dfef4427a1be922aba46859a.tar.gz otp-8d78a10998ae7d87dfef4427a1be922aba46859a.tar.bz2 otp-8d78a10998ae7d87dfef4427a1be922aba46859a.zip |
[ct] Block output into single io call
Add newlines to the same io function call,
so that concurrent io always starts at a new line.
-rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index a38e2be98e..bc4c7d2bb5 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -4679,21 +4679,16 @@ output_to_fd(stdout, Msg, Sender) -> io:format("Testing ~s: ~s\n", [Name, lists:flatten(Msg)]); output_to_fd(undefined, _Msg, _Sender) -> ok; -output_to_fd(Fd, [$=|Msg], internal) -> - io:put_chars(Fd, [$=]), - io:put_chars(Fd, Msg), - io:put_chars(Fd, "\n"); +output_to_fd(Fd, Msg=[$=|_], internal) -> + io:put_chars(Fd, [Msg,"\n"]); output_to_fd(Fd, Msg, internal) -> - io:put_chars(Fd, [$=,$=,$=,$ ]), - io:put_chars(Fd, Msg), - io:put_chars(Fd, "\n"); + io:put_chars(Fd, [$=,$=,$=,$ , Msg, "\n"]); output_to_fd(Fd, Msg, _Sender) -> - io:put_chars(Fd, Msg), case get(test_server_log_nl) of - false -> ok; - _ -> io:put_chars(Fd, "\n") + false -> io:put_chars(Fd, Msg); + _ -> io:put_chars(Fd, [Msg,"\n"]) end. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |