diff options
| author | Peter Andersson <[email protected]> | 2011-07-14 16:56:36 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2011-09-23 12:24:54 +0200 |
| commit | bd56af6214c451b9c7d0ab455b2597021299ecaa (patch) | |
| tree | a182fb89b972d1cea07eb5b241caa3746bf230a7 /lib/test_server/src/test_server_ctrl.erl | |
| parent | 8618bb8eab726ab5652b40751bdca928b49eca7f (diff) | |
| download | otp-bd56af6214c451b9c7d0ab455b2597021299ecaa.tar.gz otp-bd56af6214c451b9c7d0ab455b2597021299ecaa.tar.bz2 otp-bd56af6214c451b9c7d0ab455b2597021299ecaa.zip | |
Introduce new framework callback function to read info about color of comments
OTP-9237
Diffstat (limited to 'lib/test_server/src/test_server_ctrl.erl')
| -rw-r--r-- | lib/test_server/src/test_server_ctrl.erl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index b7b25fcf72..7554a31530 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -173,7 +173,7 @@ %%% TEST_SERVER INTERFACE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -export([output/2, print/2, print/3, print_timestamp/2]). -export([start_node/3, stop_node/1, wait_for_node/1, is_release_available/1]). --export([format/1, format/2, format/3]). +-export([format/1, format/2, format/3, to_string/1]). -export([get_target_info/0]). -export([get_hosts/0]). -export([get_target_os_type/0]). @@ -3976,8 +3976,11 @@ progress(ok, _CaseNum, Mod, Func, _Loc, RetVal, Time, case RetVal of {comment,RetComment} -> String = to_string(RetComment), + HtmlCmt = test_server_sup:framework_call(format_comment, + [String], + String), print(major, "=result ok: ~s", [String]), - "<td>" ++ String ++ "</td>"; + "<td>" ++ HtmlCmt ++ "</td>"; _ -> print(major, "=result ok", []), case Comment0 of |