From afbd6fa341f89211697a3c3f59f888b8247aa7f4 Mon Sep 17 00:00:00 2001 From: Peter Andersson Date: Thu, 1 Jul 2010 15:46:13 +0200 Subject: Add textured backgound to html log files The overview html log files now have a textured background. This default new look can be switched off with the 'basic_html' option. --- lib/test_server/src/test_server_ctrl.erl | 36 +++++++++++++++++++------------- 1 file changed, 22 insertions(+), 14 deletions(-) (limited to 'lib/test_server/src/test_server_ctrl.erl') diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl index a28a73a8ed..38a0b6d94d 100644 --- a/lib/test_server/src/test_server_ctrl.erl +++ b/lib/test_server/src/test_server_ctrl.erl @@ -1674,19 +1674,27 @@ do_test_cases(TopCases, SkipCases, TI = get_target_info(), print(1, "Starting test~s", [print_if_known(N, {", ~w test cases",[N]}, {" (with repeated test cases)",[]})]), - test_server_sup:framework_call(report, [tests_start, - {get(test_server_name),N}]), - print(html, - "\n" - "\n" - "\n" - "Test ~p results\n" - "\n" - "\n" - "" - "

Results from test ~p

\n", - [get(test_server_name),get(test_server_name)]), + Test = get(test_server_name), + test_server_sup:framework_call(report, [tests_start,{Test,N}]), + + Header = + case test_server_sup:framework_call(overview_html_header, [Test], "") of + "" -> + TestName = lists:flatten(io_lib:format("~p", [Test])), + ["\n", + "\n", + "\n", + "Test ", TestName, " results\n", + "\n", + "\n", + "", + "

Results from test ", TestName, "

\n"]; + Html -> + ["\n", + "\n" | Html] + end, + print(html, Header, []), print_timestamp(html, "Test started at "), print(html, "

Host:
\n"), @@ -1717,7 +1725,7 @@ do_test_cases(TopCases, SkipCases, [?suitelog_name,?coverlog_name]), print(html,"

~s" "

\n" - "" + "
" "" "\n", [print_if_known(N, {"Suite contains ~p test cases.\n",[N]}, -- cgit v1.2.3
NumModuleCaseLogTimeResultComment