diff options
| author | Peter Andersson <[email protected]> | 2016-03-08 01:40:19 +0100 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2016-03-08 09:36:20 +0100 |
| commit | 9b9879b1ccbeff9ec87494ba7ed59273d679740e (patch) | |
| tree | 605c8edf298887a7eb36b57468f2a97fe84bdf4c /lib/common_test/src/ct_logs.erl | |
| parent | 7a05d84c9d6664573a34485e3441b3c9542ed25b (diff) | |
| download | otp-9b9879b1ccbeff9ec87494ba7ed59273d679740e.tar.gz otp-9b9879b1ccbeff9ec87494ba7ed59273d679740e.tar.bz2 otp-9b9879b1ccbeff9ec87494ba7ed59273d679740e.zip | |
Fix problems with formatted test_server printouts
Diffstat (limited to 'lib/common_test/src/ct_logs.erl')
| -rw-r--r-- | lib/common_test/src/ct_logs.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/common_test/src/ct_logs.erl b/lib/common_test/src/ct_logs.erl index d9e9328bbd..e3f995ad3f 100644 --- a/lib/common_test/src/ct_logs.erl +++ b/lib/common_test/src/ct_logs.erl @@ -269,7 +269,7 @@ cast(Msg) -> %%% <p>This function is called by ct_framework:init_tc/3</p> init_tc(RefreshLog) -> call({init_tc,self(),group_leader(),RefreshLog}), - io:format(xhtml("", "<br />")), + io:format(["$tc_html",xhtml("", "<br />")]), ok. %%%----------------------------------------------------------------- @@ -919,7 +919,7 @@ print_to_log(sync, FromPid, Category, TCGL, Content, EscChars, State) -> if FromPid /= TCGL -> IoFun = create_io_fun(FromPid, CtLogFd, EscChars), IoList = lists:foldl(IoFun, [], Content), - io:format(TCGL,"~ts", [IoList]); + io:format(TCGL,["$tc_html","~ts"], [IoList]); true -> unexpected_io(FromPid, Category, ?MAX_IMPORTANCE, Content, CtLogFd, EscChars) @@ -945,7 +945,7 @@ print_to_log(async, FromPid, Category, TCGL, Content, EscChars, State) -> case erlang:is_process_alive(TCGL) of true -> - try io:format(TCGL, "~ts", + try io:format(TCGL, ["$tc_html","~ts"], [lists:foldl(IoFun,[],Content)]) of _ -> ok catch |