aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/src/ct_logs.erl
diff options
context:
space:
mode:
authorPeter Andersson <[email protected]>2011-07-08 20:46:17 +0200
committerPeter Andersson <[email protected]>2011-09-23 12:24:53 +0200
commit0075b97214d6c037eca3888bca29d68c9b5fbb74 (patch)
tree06734de9077352d0422a0525b1cbfbb1b0bd2041 /lib/common_test/src/ct_logs.erl
parent312005eb3d09f5bf00ce129c1dd900de1475fc0a (diff)
downloadotp-0075b97214d6c037eca3888bca29d68c9b5fbb74.tar.gz
otp-0075b97214d6c037eca3888bca29d68c9b5fbb74.tar.bz2
otp-0075b97214d6c037eca3888bca29d68c9b5fbb74.zip
Modify start options and introduce CT profiles
OTP-9155: Improve handling of start options in Common Test OTP-9428: Introduce first version of CT profiles (for evaluation)
Diffstat (limited to 'lib/common_test/src/ct_logs.erl')
-rw-r--r--lib/common_test/src/ct_logs.erl21
1 files changed, 18 insertions, 3 deletions
diff --git a/lib/common_test/src/ct_logs.erl b/lib/common_test/src/ct_logs.erl
index b839521e24..5c4eb88c1f 100644
--- a/lib/common_test/src/ct_logs.erl
+++ b/lib/common_test/src/ct_logs.erl
@@ -28,7 +28,7 @@
-module(ct_logs).
--export([init/1,close/1,init_tc/0,end_tc/1]).
+-export([init/1,close/2,init_tc/0,end_tc/1]).
-export([get_log_dir/0,log/3,start_log/1,cont_log/2,end_log/0]).
-export([set_stylesheet/2,clear_stylesheet/1]).
-export([add_external_logs/1,add_link/3]).
@@ -97,11 +97,11 @@ logdir_node_prefix() ->
logdir_prefix()++"."++atom_to_list(node()).
%%%-----------------------------------------------------------------
-%%% @spec close(Info) -> ok
+%%% @spec close(Info, StartDir) -> ok
%%%
%%% @doc Create index pages with test results and close the CT Log
%%% (tool-internal use only).
-close(Info) ->
+close(Info, StartDir) ->
make_last_run_index(),
ct_event:notify(#event{name=stop_logging,node=node(),data=[]}),
@@ -132,6 +132,21 @@ close(Info) ->
make_all_suites_index(stop),
make_all_runs_index(stop),
+ case ct_util:get_profile_data(browser, StartDir) of
+ undefined ->
+ ok;
+ BrowserData ->
+ case {proplists:get_value(prog, BrowserData),
+ proplists:get_value(args, BrowserData),
+ proplists:get_value(page, BrowserData)} of
+ {Prog,Args,Page} when is_list(Args),
+ is_list(Page) ->
+ URL = "file://" ++ ?abs(Page),
+ ct_util:open_url(Prog, Args, URL);
+ _ ->
+ ok
+ end
+ end,
ok.
%%%-----------------------------------------------------------------