From 48c754b93da2eff262b2297f2e51b102adbabfa0 Mon Sep 17 00:00:00 2001
From: Lukas Larsson <lukas@erlang.org>
Date: Fri, 10 Sep 2010 14:10:39 +0200
Subject: OTP-8818: Fixed inconsistency in ct:start_interactive call

---
 lib/common_test/src/ct_config.erl | 38 ++++++++++++++++++++++++++++----------
 lib/common_test/src/ct_run.erl    |  5 ++++-
 2 files changed, 32 insertions(+), 11 deletions(-)

(limited to 'lib/common_test/src')

diff --git a/lib/common_test/src/ct_config.erl b/lib/common_test/src/ct_config.erl
index dc6fcc66e5..6b75937668 100644
--- a/lib/common_test/src/ct_config.erl
+++ b/lib/common_test/src/ct_config.erl
@@ -48,7 +48,7 @@
 
 -export([get_ref_from_name/1, get_name_from_ref/1, get_key_from_name/1]).
 
--export([check_config_files/1, prepare_config_list/1]).
+-export([check_config_files/1, add_default_callback/1, prepare_config_list/1]).
 
 -export([add_config/2, remove_config/2]).
 
@@ -212,6 +212,24 @@ get_config_file_list(Opts) ->
 	process_user_configs(Opts, []),
     CfgFiles.
 
+add_default_callback(Opts) ->
+    case lists:keytake(config, 1, Opts) of
+	{value, {config, [File | _] = Files}, NoConfigOpts}
+	  when is_integer(File) =/= true ->
+	    [{config, lists:flatmap(fun add_def_cb/1, Files)} | NoConfigOpts];
+	{value, {config, File}, NoConfigOpts} ->
+	    [{config, add_def_cb(File)} | NoConfigOpts];
+	false ->
+	    Opts
+    end.
+
+add_def_cb([]) ->
+    [];
+add_def_cb(Config) when is_tuple(Config) ->
+    [Config];
+add_def_cb([H|_T] = Config ) when is_integer(H) ->
+    [{?ct_config_txt, [Config]}].
+
 read_config_files(Opts) ->
     AddCallback = fun(CallBack, []) ->
 			[{CallBack, []}];
@@ -220,16 +238,16 @@ read_config_files(Opts) ->
 		     (CallBack, [F|_]=Files) when is_list(F) ->
 			lists:map(fun(X) -> {CallBack, X} end, Files)
 		  end,
+
     ConfigFiles = case lists:keyfind(config, 1, Opts) of
-	{config, ConfigLists}->
-	    lists:foldr(fun({Callback,Files}, Acc) ->
-				AddCallback(Callback,Files) ++ Acc
-			end,
-			[],
-			ConfigLists);
-	false->
-	    []
-    end,
+		      {config,ConfigLists}->
+                          lists:foldr(fun({Callback,Files}, Acc) ->
+					      AddCallback(Callback,Files)
+						  ++ Acc
+				      end,[],ConfigLists);
+		      false->
+			  []
+		  end,
     read_config_files_int(ConfigFiles, fun store_config/3).
 
 read_config_files_int([{Callback, File}|Files], FunToSave) ->
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl
index c5bfd01642..c14f0c5cee 100644
--- a/lib/common_test/src/ct_run.erl
+++ b/lib/common_test/src/ct_run.erl
@@ -550,6 +550,9 @@ install(Opts) ->
     install(Opts, ".").
 
 install(Opts, LogDir) ->
+
+    ConfOpts = ct_config:add_default_callback(Opts),
+
     case application:get_env(common_test, decrypt) of
 	{ok,_} ->
 	    ok;
@@ -566,7 +569,7 @@ install(Opts, LogDir) ->
 	    VarFile = variables_file_name(LogDir),
 	    case file:open(VarFile, [write]) of
 		{ok,Fd} ->
-		    [io:format(Fd, "~p.\n", [Opt]) || Opt <- Opts],
+		    [io:format(Fd, "~p.\n", [Opt]) || Opt <- ConfOpts ],
 		    file:close(Fd),
 		    ok;
 		{error,Reason} ->
-- 
cgit v1.2.3