aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/src
diff options
context:
space:
mode:
authorPeter Andersson <[email protected]>2012-11-20 12:19:31 +0100
committerPeter Andersson <[email protected]>2012-11-20 12:20:11 +0100
commit8b2dcbaf0acd2350f8b3259701384e6d1a858824 (patch)
treec743f0f6c27a93a7ecaedc4bf840e772a5d91e0c /lib/common_test/src
parent1ecc870573b37491e9dd7965d29d20efea557c01 (diff)
parent4a0600126b78a7083cb380c5d9efcdd364f551f8 (diff)
downloadotp-8b2dcbaf0acd2350f8b3259701384e6d1a858824.tar.gz
otp-8b2dcbaf0acd2350f8b3259701384e6d1a858824.tar.bz2
otp-8b2dcbaf0acd2350f8b3259701384e6d1a858824.zip
Merge remote branch 'origin/peppe/common_test/config_broken_r15b03' into maint
* origin/peppe/common_test/config_broken_r15b03: Fix problem with config start option not accepting list of files OTP-10495
Diffstat (limited to 'lib/common_test/src')
-rw-r--r--lib/common_test/src/ct_config.erl2
-rw-r--r--lib/common_test/src/ct_run.erl6
2 files changed, 5 insertions, 3 deletions
diff --git a/lib/common_test/src/ct_config.erl b/lib/common_test/src/ct_config.erl
index 06a8e12f55..b1d709bc75 100644
--- a/lib/common_test/src/ct_config.erl
+++ b/lib/common_test/src/ct_config.erl
@@ -171,7 +171,7 @@ process_default_configs(Opts) ->
lists:flatmap(fun({config,[_|_] = FileOrFiles}) ->
case {io_lib:printable_list(FileOrFiles),
io_lib:printable_list(hd(FileOrFiles))} of
- {true,true} ->
+ {false,true} ->
FileOrFiles;
{true,false} ->
[FileOrFiles];
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl
index 3383244bf4..ffa2a21ea9 100644
--- a/lib/common_test/src/ct_run.erl
+++ b/lib/common_test/src/ct_run.erl
@@ -2786,8 +2786,10 @@ opts2args(EnvStartOpts) ->
[{halt_with,[atom_to_list(HaltM),atom_to_list(HaltF)]}];
({interactive_mode,true}) ->
[{shell,[]}];
- ({config,CfgFiles}) ->
- [{ct_config,[CfgFiles]}];
+ ({config,CfgFile}) when is_integer(hd(CfgFile)) ->
+ [{ct_config,[CfgFile]}];
+ ({config,CfgFiles}) when is_list(hd(CfgFiles)) ->
+ [{ct_config,CfgFiles}];
({userconfig,{CBM,CfgStr=[X|_]}}) when is_integer(X) ->
[{userconfig,[atom_to_list(CBM),CfgStr]}];
({userconfig,{CBM,CfgStrs}}) when is_list(CfgStrs) ->