From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001
From: Erlang/OTP <otp@erlang.org>
Date: Fri, 20 Nov 2009 14:54:40 +0000
Subject: The R13B03 release.

---
 lib/common_test/src/vts.erl | 882 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 882 insertions(+)
 create mode 100644 lib/common_test/src/vts.erl

(limited to 'lib/common_test/src/vts.erl')

diff --git a/lib/common_test/src/vts.erl b/lib/common_test/src/vts.erl
new file mode 100644
index 0000000000..ad4845a7c3
--- /dev/null
+++ b/lib/common_test/src/vts.erl
@@ -0,0 +1,882 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2003-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+
+-module(vts).
+
+-export([start/0,
+	 init_data/4,
+	 stop/0,
+	 report/2]).
+
+-export([config_data/0,
+	 start_link/0]).
+
+-export([start_page/2,
+	 title_frame/2,
+	 menu_frame/2,
+	 welcome_frame/2,
+	 config_frame/2,
+	 add_config_file/2,
+	 remove_config_file/2,
+	 run_frame/2,
+	 add_test_dir/2,
+	 remove_test_dir/2,
+	 select_case/2,
+	 select_suite/2,
+	 run_test/2,
+	 result_frameset/2,
+	 result_summary_frame/2,
+	 no_result_log_frame/2,
+	 redirect_to_result_log_frame/2]).
+
+-export([test_info/3]).
+
+-define(START_PAGE,"/vts_erl/vts/start_page").
+
+-define(tests,vts_tests).
+
+%% Colors
+-define(INFO_BG_COLOR,"#C0C0EA").
+
+-record(state,{tests=[],config=[],event_handler=[],test_runner,
+	       running=0,reload_results=false,start_dir,current_log_dir,
+	       total=0,ok=0,fail=0,skip=0,testruns=[]}).
+
+
+%%%-----------------------------------------------------------------
+%%% User API
+start() ->
+    webtool:start(),
+    webtool:start_tools([],"app=vts").
+
+init_data(ConfigFiles,EvHandlers,LogDir,Tests) ->
+    call({init_data,ConfigFiles,EvHandlers,LogDir,Tests}).
+
+stop() ->
+    webtool:stop_tools([],"app=vts"),
+    webtool:stop().
+
+report(What,Data) ->
+    call({report,What,Data}).
+
+%%%-----------------------------------------------------------------
+%%% Return config data used by webtool
+config_data() ->
+    {ok,LogDir} =
+	case lists:keysearch(logdir,1,init:get_arguments()) of
+	    {value,{logdir,[LogD]}} -> {ok,filename:absname(LogD)};
+	    false -> file:get_cwd()
+	end,
+    {vts,
+     [{web_data,{"VisualTestServer",?START_PAGE}},
+      {alias,{erl_alias,"/vts_erl",[?MODULE]}},
+      {alias,{"/log_dir",LogDir}},
+      {start,{child,{{local,?MODULE},
+		     {?MODULE,start_link,[]},
+		     permanent,100,worker,[?MODULE]}}}
+	      ]}.
+
+start_link() ->
+    case whereis(?MODULE) of
+	undefined ->
+	    Self = self(),
+	    Pid = spawn_link(fun() -> init(Self) end),
+	    MRef = erlang:monitor(process,Pid),
+	    receive
+		{Pid,started} -> 
+		    erlang:demonitor(MRef),
+		    {ok,Pid};
+		{'DOWN',MRef,process,_,Reason} -> 
+		    {error,{vts,died,Reason}}
+	    end;
+	Pid ->
+	    {ok,Pid}
+    end.
+
+start_page(_Env,_Input) ->
+    call(start_page).
+title_frame(_Env,_Input) ->
+    call(title_frame).
+welcome_frame(_Env,_Input) ->
+    call(welcome_frame).
+menu_frame(_Env,_Input) ->
+    call(menu_frame).
+config_frame(_Env,_Input) ->
+    call(config_frame).
+add_config_file(_Env,Input) ->
+    call({add_config_file,Input}).
+remove_config_file(_Env,Input) ->
+    call({remove_config_file,Input}).
+run_frame(_Env,_Input) ->
+    call(run_frame).
+add_test_dir(_Env,Input) ->
+    call({add_test_dir,Input}).
+remove_test_dir(_Env,Input) ->
+    call({remove_test_dir,Input}).
+select_suite(_Env,Input) ->
+    call({select_suite,Input}).
+select_case(_Env,Input) ->
+    call({select_case,Input}).
+run_test(_Env,_Input) ->
+    call(run_test).
+result_frameset(_Env,_Input) ->
+    call(result_frameset).
+redirect_to_result_log_frame(_Env,_Input) ->
+    call(redirect_to_result_log_frame).
+result_summary_frame(_Env,_Input) ->
+    call(result_summary_frame).
+no_result_log_frame(_Env,_Input) ->
+    call(no_result_log_frame).
+
+aborted() ->
+    call(aborted).
+
+test_info(_VtsPid,Type,Data) ->
+    call({test_info,Type,Data}).
+
+init(Parent) ->
+    register(?MODULE,self()),
+    process_flag(trap_exit,true),
+    Parent ! {self(),started},
+    {ok,Cwd} = file:get_cwd(),
+    InitState = #state{start_dir=Cwd},
+    loop(InitState).
+
+loop(State) ->
+    receive
+	{{init_data,ConfigFiles,EvHandlers,LogDir,Tests},From} ->
+	    ct_install(State),
+	    return(From,ok),
+	    loop(#state{config=ConfigFiles,event_handler=EvHandlers,
+			current_log_dir=LogDir,tests=Tests});
+	{start_page,From} ->
+	    return(From,start_page1()),
+	    loop(State);
+	{title_frame,From} ->
+	    return(From,title_frame1()),
+	    loop(State);
+	{welcome_frame,From} ->
+	    return(From,welcome_frame1()),
+	    loop(State);
+	{menu_frame,From} ->
+	    return(From,menu_frame1()),
+	    loop(State);
+	{config_frame,From} ->
+	    return(From,config_frame1(State)),
+	    loop(State);
+	{{add_config_file,Input},From} ->
+	    {Return,State1} = add_config_file1(Input,State),
+	    ct_install(State1),
+	    return(From,Return),
+	    loop(State1);
+	{{remove_config_file,Input},From} ->
+	    {Return,State1} = remove_config_file1(Input,State),
+	    ct_install(State1),
+	    return(From,Return),
+	    loop(State1);
+	{run_frame,From} ->
+	    return(From,run_frame1(State)),
+	    loop(State);
+	{{add_test_dir,Input},From} ->
+	    {Return,State1} = add_test_dir1(Input,State),
+	    return(From,Return),
+	    loop(State1);
+	{{remove_test_dir,Input},From} ->
+	    {Return,State1} = remove_test_dir1(Input,State),
+	    return(From,Return),
+	    loop(State1);
+	{{select_suite,Input},From} ->
+	    {Return,State1} = select_suite1(Input,State),
+	    return(From,Return),
+	    loop(State1);
+	{{select_case,Input},From} ->
+	    {Return,State1} = select_case1(Input,State),
+	    return(From,Return),
+	    loop(State1);
+	{run_test,From} ->
+	    State1 = run_test1(State),
+	    return(From,redirect_to_result_frameset1()),
+	    loop(State1);
+	{result_frameset,From} ->
+	    return(From,result_frameset1(State)),
+	    loop(State);
+	{redirect_to_result_log_frame,From} ->
+	    return(From,redirect_to_result_log_frame1(State)),
+	    loop(State);
+	{result_summary_frame,From} ->
+	    return(From,result_summary_frame1(State)),
+	    loop(State);
+	stop_reload_results ->
+	    file:set_cwd(State#state.start_dir),
+	    loop(State#state{reload_results=false});
+	{no_result_log_frame,From} ->
+	    return(From,no_result_log_frame1()),
+	    loop(State);
+	{aborted,From} ->
+	    return(From,ok),
+	    loop(State#state{test_runner=undefined,running=0});
+	{{report,What,Data},From} ->
+	    State1 = report1(What,Data,State),
+	    return(From,ok),
+	    loop(State1);
+	{stop,From} -> 
+	    return(From,ok);
+	{'EXIT',Pid,Reason} ->
+	    case State#state.test_runner of
+		Pid -> io:format("ERROR: test runner crashed: ~p\n",[Reason]);
+		_ -> ignore
+	    end,
+	    loop(State);
+	{{test_info,_Type,_Data},From} ->
+	    return(From,ok),
+	    loop(State)
+    end.
+
+call(Msg) ->
+    case whereis(?MODULE) of
+	undefined -> {error,no_proc};
+	Pid ->
+	    MRef = erlang:monitor(process,Pid),
+	    Ref = make_ref(),
+	    Pid ! {Msg,{self(),Ref}},
+	    receive
+		{Ref, Result} -> 
+		    erlang:demonitor(MRef),
+		    Result;
+		{'DOWN',MRef,process,_,Reason}  -> 
+		    {error,{process_down,Pid,Reason}}
+	    end
+    end.
+
+return({To,Ref},Result) ->
+    To ! {Ref, Result}.
+
+
+run_test1(State=#state{tests=Tests,current_log_dir=LogDir}) ->
+    Self=self(),
+    RunTest = fun() ->
+		      case ct_run:do_run(Tests,[],LogDir) of
+			  {error,_Reason} ->
+			      aborted();
+			  _ ->
+			      ok
+		      end,
+		      unlink(Self)
+	      end,
+
+    Pid = spawn_link(RunTest),
+
+    Total =
+	receive 
+	    {{test_info,start_info,{_,_,Cases}},From} ->
+		return(From,ok),
+		Cases;
+	    EXIT = {'EXIT',_,_} ->
+		self() ! EXIT
+	after 30000 ->
+		0
+	end,
+    State#state{test_runner=Pid,running=length(Tests),
+		total=Total,ok=0,fail=0,skip=0,testruns=[]}.
+
+ 
+ct_install(#state{config=Config,event_handler=EvHandlers,
+		  current_log_dir=LogDir}) ->
+    ct_run:install([{config,Config},{event_handler,EvHandlers}],LogDir).
+    
+%%%-----------------------------------------------------------------
+%%% HTML
+start_page1() ->
+    header("Visual Test Server Start Page",start_page_frameset()).
+
+start_page_frameset() ->
+    frameset(
+      "ROWS=\"60,*\"",
+      [frame(["NAME=\"title\" SRC=\"./title_frame\""]),
+       frameset(
+	 "COLS=\"150,*\"",
+	 [frame(["NAME=\"menu\" SRC=\"./menu_frame\""]),
+	  frame(["NAME=\"main\" SRC=\"./welcome_frame\""])])]).
+
+
+title_frame1() ->
+    header(body("BGCOLOR=lightgrey TEXT=darkgreen",title_body())).
+
+title_body() ->
+    p("ALIGN=center",font("SIZE=\"+3\"",b("Visual Test Server"))).
+
+welcome_frame1() ->
+    header(body(welcome_body())).
+
+welcome_body() ->
+    table(
+      "WIDTH=100% HEIGHT=60%",
+      [tr("VALIGN=middle",
+	  td("ALIGN=center",
+	     font("SIZE=6",
+		  ["Welcome to the",br(),
+		   "Visual Test Server"])))]).
+
+menu_frame1() ->
+    header(body(menu_body())).
+
+menu_body() ->
+    [h2("Content"),
+     ul([
+	 li(href(["TARGET=\"main\""],"./config_frame","Config")),
+	 li(href(["TARGET=\"main\""],"./run_frame","Run")),
+	 li(href(["TARGET=\"main\""],"./result_frameset","Result"))
+	]),
+     h2("Logs"),
+     ul([
+	 li(href(["TARGET=\"new\""],"/log_dir/index.html","Last Runs")),
+	 li(href(["TARGET=\"new\""],"/log_dir/all_runs.html","All Runs"))
+	])
+    ].
+
+config_frame1(State) ->
+    header("Config",body(config_body(State))).
+    
+config_body(State) ->
+    Entry = [input("TYPE=file NAME=browse SIZE=40"),
+	     input("TYPE=hidden NAME=file")],
+    AddForm = 
+	form(
+	  "NAME=read_file_form METHOD=post ACTION=\"./add_config_file\"",
+	  table(
+	    "BORDER=0",
+	    [tr(
+	       [td(Entry),
+		td("ALIGN=center",
+		   input("TYPE=submit onClick=\"file.value=browse.value;\""
+			 " VALUE=\"Add\""))])])),
+    {Text,RemoveForm} = 
+	case State#state.config of
+	    [] ->
+		T = "To be able to run any tests, one or more configuration " 
+		    "files must be added. Enter the name of the configuration "
+		    "file below and click the \"Add\" button.",
+		R = "",
+		{T,R};
+	    Files ->
+		T = "The currently known configuration files are listed below. "
+		    "To add a file, type the filename in the entry and "
+		    "click the \"Add\" button. "
+		    "To remove a file, select it and click the \"Remove\" "
+		    "button.",
+		ConfigFiles = [option(File) || File <- Files],
+		Select = select("NAME=file TITLE=\"Select Config File\""
+				" MULTIPLE=true",
+				ConfigFiles),
+		R = 
+		    form(["NAME=remove_config METHOD=post ",
+			  "ACTION=\"./remove_config_file\""],
+			 table(
+			   "BORDER=0",
+			   [tr(td("ALIGN=center",Select)),
+			    tr(td("ALIGN=center",
+				  input("TYPE=submit VALUE=\"Remove\"")))])),
+		{T,R}
+	end,
+    
+    [h1("ALIGN=center","Config"),
+     table(
+       "WIDTH=600 ALIGN=center CELLPADDING=5",
+       [tr(td(["BGCOLOR=",?INFO_BG_COLOR],Text)),
+	tr(td("ALIGN=center",AddForm)),
+	tr(td("ALIGN=center",RemoveForm))])].
+
+
+add_config_file1(Input,State) ->
+    State1 = 
+	case get_input_data(Input,"file") of
+	    "" -> State;
+	    File -> State#state{config=[File|State#state.config]}
+	end,
+    Return = config_frame1(State1),
+    {Return,State1}.
+
+remove_config_file1(Input,State) ->
+    Files = get_all_input_data(Input,"file"),
+    State1 = State#state{config=State#state.config--Files},
+    Return = config_frame1(State1),
+    {Return,State1}.
+    
+
+
+run_frame1(State) ->
+    header("Run Test",body(run_body(State))).
+    
+run_body(#state{running=Running}) when Running>0 ->
+    [h1("ALIGN=center","Run Test"),
+     p(["Test are ongoing: ",href("./result_frameset","Results")])];
+run_body(State) ->
+    ConfigList = ul([li(File) || File <- State#state.config]),
+    ConfigFiles = [h3("Config Files"),
+		   ConfigList],
+    
+    AddDirForm = 
+	form(
+	  "NAME=add_dir_form METHOD=post ACTION=\"./add_test_dir\"",
+	  table(
+	    "BORDER=0",
+	    [tr(td("COLSPAN=2","Enter test directory")),
+	     tr(
+	       [td(input("TYPE=text NAME=dir SIZE=40")),
+		td("ALIGN=center",
+		   input("TYPE=submit onClick=\"dir.value=browse.value;\""
+			 " VALUE=\"Add Test Dir\""))])])),
+
+    {LoadedTestsTable,Submit} = 
+	case create_testdir_entries(State#state.tests,1) of
+	    [] -> {"",""};
+	    TestDirs ->
+		Heading = tr([th(""),
+			      th("ALIGN=left","Directory"),
+			      th("ALIGN=left","Suite"),
+			      th("ALIGN=left","Case")]),
+		{table("CELLPADDING=5",[Heading,TestDirs]),
+		submit_button()} 
+	end,
+
+    %% It should be ok to have no config-file!
+    Body = 
+	%% case State#state.config of %% [] -> %% p("ALIGN=center",
+	%% 	       href("./config_frame","Please select one or
+	%% 	       more config files")); %% _ ->
+	table(
+	  "WIDTH=100%",
+	  [tr(td(ConfigFiles)),
+	   tr(td("")),
+	   tr(td(AddDirForm)),
+	   tr(td("")),
+	   tr(td(LoadedTestsTable)),
+	   tr(td(Submit))]),
+    %%    end,
+    
+    [h1("ALIGN=center","Run Test"), Body].
+
+create_testdir_entries([{Dir,Suite,Case}|Tests],N) ->
+    [testdir_entry(Dir,Suite,Case,N)|create_testdir_entries(Tests,N+1)];
+create_testdir_entries([],_N) ->
+    [].
+
+testdir_entry(Dir,Suite,Case,N) ->
+    NStr = integer_to_list(N),
+    tr([td(delete_button(NStr)),
+	td(Dir),
+	td(suite_select(Dir,Suite,NStr)),
+	td(case_select(Dir,Suite,Case,NStr))]).
+
+delete_button(N) ->
+    form(["NAME=remove_dir_form METHOD=post ACTION=\"./remove_test_dir\""],
+	 [input(["TYPE=hidden NAME=dir VALUE=\'",N,"\'"]),
+	  input(["TYPE=submit VALUE=X"])]).
+
+suite_select(Dir,Suite,N) ->
+    case filelib:wildcard(filename:join(Dir,"*_SUITE.erl")) of
+	[] ->
+	    select("NAME=suite TITLE=\"Select suite\"","");
+	Suites0 ->
+	    Suites = [filename:basename(filename:rootname(S)) ||  S <- Suites0],
+	    select("NAME=suite TITLE=\"Select suite\"",
+		   options(["all"|Suites],atom_to_list(Suite),N,"select_suite"))
+    end.
+
+case_select(_Dir,all,_,N) ->
+    select("NAME=case TITLE=\"Select case\"",
+	   options(["all"],"all",N,"select_case"));
+case_select(Dir,Suite,Case,N) ->
+    MakeResult =
+	case application:get_env(common_test, auto_compile) of
+	    {ok,false} ->
+		ok;
+	    _ ->	    
+		UserInclude =
+		    case application:get_env(common_test, include) of
+			{ok,UserInclDirs} when length(UserInclDirs) > 0 ->
+			    [{i,UserInclDir} || UserInclDir <- UserInclDirs];
+			_ ->
+			    []
+		    end,
+		ct_run:run_make(Dir,Suite,UserInclude)
+	end,
+    case MakeResult of
+	ok ->
+	    code:add_pathz(Dir),
+	    case catch apply(Suite,all,[]) of
+		{'EXIT',Reason} ->
+		    io:format("\n~p\n",[Reason]),
+		    red(["COULD NOT READ TESTCASES!!",br(),
+			 "See erlang shell for info"]);
+		{skip,_Reason} ->
+		    select("NAME=case TITLE=\"Select case\"",
+			   options(["all"],"all",N,"select_case"));
+		AllCasesAtoms ->
+		    AllCases = [atom_to_list(C) || C <- AllCasesAtoms,
+						   is_atom(C)],
+		    select("NAME=case TITLE=\"Select case\"",
+			   options(["all"|AllCases],atom_to_list(Case),
+				   N,"select_case"))
+	    end;
+	_Error ->
+	    red(["COMPILATION ERROR!!",br(),
+		 "See erlang shell for info",br(),
+		 "Reload this page when errors are fixed"])
+    end.
+	    
+
+options([Selected|Elements],Selected,N,Func) ->
+    [option(["SELECTED ",
+	     "onClick=\"document.location.href=\'./",Func,"?n=",N,
+	     "&selected=",Selected,"\';\""],
+	    Selected)|
+     options(Elements,Selected,N,Func)];
+options([Element|Elements],Selected,N,Func) ->
+    [option(["onClick=\"document.location.href=\'./",Func,"?n=",N,
+	     "&selected=",Element,"\';\""],
+	    Element)|
+     options(Elements,Selected,N,Func)];
+options([],_Selected,_N,_Func) ->
+    [].
+
+add_test_dir1(Input,State) ->
+    State1 = 
+	case get_input_data(Input,"dir") of
+	    "" -> State;
+	    Dir0 ->
+		Dir = case ct_util:is_test_dir(Dir0) of
+			  true -> 
+			      Dir0;
+			  false -> filename:join(Dir0,"test")
+		      end,
+		case filelib:is_dir(Dir) of
+		    true -> 
+			Test = ct_run:tests(Dir),
+			State#state{tests=State#state.tests++Test};
+		    false ->
+			State
+		end
+	end,
+    Return = run_frame1(State1),
+    {Return,State1}.
+
+
+
+remove_test_dir1(Input,State) ->
+    N = list_to_integer(get_input_data(Input,"dir")),
+    State1 = State#state{tests=delete_test(N,State#state.tests)},
+    Return = run_frame1(State1),
+    {Return,State1}.
+
+delete_test(1,[_|T]) ->
+    T;
+delete_test(N,[H|T]) ->
+    [H|delete_test(N-1,T)].
+
+select_suite1(Input,State) ->
+    N = list_to_integer(get_input_data(Input,"n")),
+    Suite = list_to_atom(get_input_data(Input,"selected")),
+    Tests1 = replace_suite(N,Suite,State#state.tests),
+    State1 = State#state{tests=Tests1},
+    Return = run_frame1(State1),
+    {Return,State1}.
+
+replace_suite(1,Suite,[{Dir,_,_}|T]) ->
+    [Test] = ct_run:tests(Dir,Suite),
+    [Test|T];
+replace_suite(N,Suite,[H|T]) ->	    
+    [H|replace_suite(N-1,Suite,T)].
+
+select_case1(Input,State) ->
+    N = list_to_integer(get_input_data(Input,"n")),
+    Case = list_to_atom(get_input_data(Input,"selected")),
+    Tests1 = replace_case(N,Case,State#state.tests),
+    State1 = State#state{tests=Tests1},
+    Return = run_frame1(State1),
+    {Return,State1}.
+
+replace_case(1,Case,[{Dir,Suite,_}|T]) ->
+    [Test] = ct_run:tests(Dir,Suite,Case),
+    [Test|T];
+replace_case(N,Case,[H|T]) ->	    
+    [H|replace_case(N-1,Case,T)].
+
+
+submit_button() ->
+    form(["NAME=run_test_form METHOD=post ACTION=\"./run_test\""],
+	 [input("TYPE=submit VALUE=\"Run Test\"")]).
+	    
+
+redirect_to_result_frameset1() ->
+    Head = 
+	["<META HTTP-EQUIV=\"refresh\" CONTENT=\"1; URL=./result_frameset\">"],
+    [header("",Head,body("Please wait..."))].
+
+result_frameset1(State) ->
+     header("Results",result_frameset2(State)).
+
+result_frameset2(State) ->
+    ResultLog = 
+	case {State#state.current_log_dir,State#state.running} of
+	    {undefined,0} ->
+		"./no_result_log_frame";
+	    {undefined,_} ->
+		"./redirect_to_result_log_frame";
+	    {_Dir,0} ->
+		filename:join(["/log_dir","index.html"]);
+	    {_Dir,_} ->
+		{_,CurrentLog} = hd(State#state.testruns),
+		CurrentLog
+	end,
+    frameset(
+      "COLS=\"200,*\"",
+     [frame(["NAME=\"result_summary\" SRC=\"./result_summary_frame\""]),
+      frame(["NAME=\"result_log\" SRC=\"",ResultLog,"\""])]).
+
+redirect_to_result_log_frame1(State) ->
+    ResultLog = 
+	case {State#state.testruns,State#state.running} of
+	    {[],0} ->
+		"./no_result_log_frame";
+	    {[],_} ->
+		"./redirect_to_result_log_frame";
+	    {[{_,CurrentLog}|_],_} ->
+		CurrentLog
+	end,
+    Head = ["<META HTTP-EQUIV=\"refresh\" CONTENT=\"1; URL=",ResultLog,"\">"],
+    [header("",Head,body("Please wait..."))].
+
+result_summary_frame1(State) ->
+    case {State#state.running,State#state.reload_results} of
+	{0,false} ->
+	    header("Result Summary",body(result_summary_body(State)));
+	_ ->
+ 	    Head = 
+		"<SCRIPT LANGUAGE=\"JavaScript1.2\">\n"
+		"\n"
+		"function startReloadInterval() {\n"
+		"    intervalId = setInterval(\"reloadPage()\",5000)\n"
+		"}\n"
+		"\n"
+		"function reloadPage() {\n"
+		"    location.reload()\n"
+		"    parent.result_log.location.reload()\n"
+%		"    parent.result_log.scrollBy(0, window.innerHeight)\n"
+		"}\n"
+		"</SCRIPT>\n",
+ 	    header("Result Summary",Head,
+		   body("onLoad=\"startReloadInterval()\" BGCOLOR=\"#FFFFFF\"",
+			result_summary_body(State)))
+	end.
+    
+result_summary_body(State) ->
+    N = State#state.ok + State#state.fail + State#state.skip,
+    [h2("Result Summary"),
+     p([b(integer_to_list(N))," cases executed (of ",
+	b(integer_to_list(State#state.total)),")"]),
+     p([green([b(integer_to_list(State#state.ok))," successful"]),br(),
+	red([b(integer_to_list(State#state.fail))," failed"]),br(),
+	orange([b(integer_to_list(State#state.skip))," skipped"])]),
+    executed_test_list(State)].
+
+executed_test_list(#state{testruns=[]}) ->
+    [];
+executed_test_list(#state{testruns=TestRuns}) ->
+    [h2("Executed Tests"),
+     table(
+       "",
+       [tr(td(href("TARGET=\"result_log\"",Log,Name))) || 
+	   {Name,Log} <- lists:reverse(TestRuns)])].
+
+
+no_result_log_frame1() ->
+    header("Test Results",body(no_result_log_body())).
+
+no_result_log_body() ->
+    [h1("ALIGN=center","Test Results"),
+     p(["There are currently no test results available. ",
+	br(),href("TARGET=\"main\"","./run_frame","You can run tests here")])].
+
+report1(tests_start,{TestName,_N},State) ->
+    {ok,LogDir} = ct_logs:get_log_dir(),
+    TestRuns = 
+	case State#state.testruns of
+	    [{TestName,_}|_]=TR -> 
+		TR;
+	    TR -> 
+		[{TestName,get_test_log(TestName,LogDir)}|TR]
+	end,
+    State#state{testruns=TestRuns};
+report1(tests_done,{_Ok,_Fail,_Skip},State) ->
+    timer:send_after(5000, self(),stop_reload_results),
+    State#state{running=State#state.running-1,reload_results=true};
+report1(tc_start,{_Suite,_Case},State) ->
+    State;
+report1(tc_done,{_Suite,init_per_suite,_},State) ->
+    State;
+report1(tc_done,{_Suite,end_per_suite,_},State) ->
+    State;
+report1(tc_done,{_Suite,_Case,ok},State) ->
+    State#state{ok=State#state.ok+1};
+report1(tc_done,{_Suite,_Case,{failed,_Reason}},State) ->
+    State#state{fail=State#state.fail+1};
+report1(tc_done,{_Suite,_Case,{skipped,_Reason}},State) ->
+    State#state{skip=State#state.skip+1};
+report1(tc_user_skip,{_Suite,_Case,_Reason},State) ->
+    State#state{skip=State#state.skip+1}.
+
+get_test_log(TestName,LogDir) ->
+    [Log] = 
+	filelib:wildcard(
+	  filename:join([TestName++".logs","run*","suite.log.html"])),
+    filename:join(["/log_dir",LogDir,Log]).
+
+
+
+%get_description(Suite,Case) ->
+%    case erlang:function_exported(Suite,Case,0) of
+%	true ->
+%	    case catch apply(Suite,Case,[]) of
+%		{'EXIT',_Reason} ->
+%		    "-";
+%		Info ->
+%		    case lists:keysearch(doc,1,Info) of
+%			{value,{doc,Doc}} when is_list(Doc) ->
+%			    Doc;
+%			_ ->
+%			    "-"
+%		    end
+%	    end;
+%	false ->
+%	    "-"
+%    end.
+
+%%%-----------------------------------------------------------------
+%%% Internal library
+header(Body) ->
+    header("","",Body).
+header(Title,Body) ->
+    header(Title,"",Body).
+header(Title,Head,Body) ->
+    ["Pragma:no-cache\r\n",
+     "Content-type: text/html\r\n\r\n",
+     html_header(Title,Head,Body)].
+
+html_header(Title,Head,Body) ->    
+    ["<HTML>\n",
+     "<HEAD>\n",
+     "<TITLE>", Title,  "</TITLE>\n",
+     Head,
+     "</HEAD>\n",
+     Body,
+     "</HTML>"].
+
+body(Text) ->
+    ["<BODY BGCOLOR=\"#FFFFFF\">\n",Text,"<\BODY>\n"].
+body(Args,Text) ->
+    ["<BODY ", Args, ">\n", Text,"<\BODY>\n"].
+
+
+frameset(Args,Frames) ->
+    ["<FRAMESET ",Args,">\n", Frames, "\n</FRAMESET>\n"].
+frame(Args) ->
+    ["<FRAME ",Args, ">\n"].
+
+table(Args,Text) ->
+    ["<TABLE ", Args, ">\n", Text, "\n</TABLE>\n"].
+tr(Text) ->
+    ["<TR>\n", Text, "\n</TR>\n"].
+tr(Args,Text) ->
+    ["<TR ", Args, ">\n", Text, "\n</TR>\n"].
+th(Text) ->
+    ["<TH>", Text, "</TH>"].
+th(Args,Text) ->
+    ["<TH ", Args, ">\n", Text, "\n</TH>\n"].
+td(Text) ->
+    ["<TD>", Text, "</TD>"].
+td(Args,Text) ->
+    ["<TD ", Args, ">", Text, "</TD>"].
+
+b(Text) ->
+    ["<B>",Text,"</B>"].
+%em(Text) ->    
+%    ["<EM>",Text,"</EM>\n"].
+%pre(Text) ->
+%    ["<PRE>",Text,"</PRE>"].
+href(Link,Text) ->
+    ["<A HREF=\"",Link,"\">",Text,"</A>"].
+href(Args,Link,Text) ->
+    ["<A HREF=\"",Link,"\" ",Args,">",Text,"</A>"].
+form(Args,Text) ->
+    ["<FORM ",Args,">\n",Text,"\n</FORM>\n"].
+input(Args) ->
+    ["<INPUT ", Args, ">\n"].
+select(Args,Text) ->
+    ["<SELECT ", Args, ">\n", Text, "\n</SELECT>\n"].
+option(Text) ->
+    ["<OPTION>\n", Text, "\n</OPTION>\n"].
+option(Args,Text) ->
+    ["<OPTION ", Args, ">\n", Text, "\n</OPTION>\n"].
+h1(Args,Text) ->
+    ["<H1 ", Args, ">",Text,"</H1>\n"].
+h2(Text) ->
+    ["<H2>",Text,"</H2>\n"].
+h3(Text) ->
+    ["<H3>",Text,"</H3>\n"].
+font(Args,Text) ->
+    ["<FONT ",Args,">\n",Text,"\n</FONT>\n"].
+p(Text) ->    
+    ["<P>",Text,"</P>\n"].
+p(Args, Text) ->    
+    ["<P ", Args, ">",Text,"</P>\n"].
+ul(Text) ->
+    ["<UL>", Text, "</UL>\n"].
+li(Text) ->
+    ["<LI>", Text, "</LI>\n"].
+br() ->
+    "<BR>\n".
+
+red(Text) -> color(red,Text).
+green(Text) -> color(green,Text).
+orange(Text) -> color(orange,Text).
+color(Color,Text) when is_atom(Color) ->
+    font(["COLOR=",atom_to_list(Color)],Text).
+
+get_all_input_data(Input,Key)->
+    List = parse(Input),
+    get_all_input_data(List,Key,[]).
+get_all_input_data([{Key,Value}|List],Key,Acc) ->
+    get_all_input_data(List,Key,[Value|Acc]);
+get_all_input_data([{_OtherKey,_Value}|List],Key,Acc) ->
+    get_all_input_data(List,Key,Acc);
+get_all_input_data([],_Key,Acc) ->
+    Acc.
+
+get_input_data(Input,Key)->
+    case lists:keysearch(Key,1,parse(Input)) of
+	{value,{Key,Value}} ->
+	    Value;
+	false ->
+	    undefined
+    end.
+
+parse(Input) ->
+    httpd:parse_query(Input).
+
-- 
cgit v1.2.3