github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-11-30 11:09:56 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use ct_run if available; fixes strange issues with getting erl/ct to stop

Browse source
This commit is contained in:
Dave Smith 2013-06-25 15:59:19 -06:00
parent 490d00f0d6
commit 9cf7cf7cb0
1 changed files with 21 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
src/rebar_ct.erl
View file

@ -192,6 +192,15 @@ make_cmd(TestDir, RawLogDir, Config) ->
""
end,
%% Check for the availability of ct_run; if we can't find it, generate a
%% warning and use the old school, less reliable approach to running CT.
BaseCmd = case os:find_executable("ct_run") of
false ->
"erl -noshell -s ct_run script_start -s erlang halt";
_ ->
"ct_run"
end,
%% Add the code path of the rebar process to the code path. This
%% includes the dependencies in the code path. The directories
%% that are part of the root Erlang install are filtered out to
@ -203,14 +212,15 @@ make_cmd(TestDir, RawLogDir, Config) ->
CodePathString = string:join(CodeDirs, " "),
Cmd = case get_ct_specs(Cwd) of
undefined ->
?FMT("erl " % should we expand ERL_PATH?
" -noshell -pa ~s ~s"
?FMT("~s"
" -pa ~s"
" ~s"
" ~s"
" -logdir \"~s\""
" -env TEST_DIR \"~s\""
" ~s"
" -s ct_run script_start -s erlang halt",
[CodePathString,
" ~s",
[BaseCmd,
CodePathString,
Include,
build_name(Config),
LogDir,
@ -222,14 +232,15 @@ make_cmd(TestDir, RawLogDir, Config) ->
get_suites(Config, TestDir) ++
get_case(Config);
SpecFlags ->
?FMT("erl " % should we expand ERL_PATH?
" -noshell -pa ~s ~s"
?FMT("~s"
" -pa ~s"
" ~s"
" ~s"
" -logdir \"~s\""
" -env TEST_DIR \"~s\""
" ~s"
" -s ct_run script_start -s erlang halt",
[CodePathString,
" ~s",
[BaseCmd,
CodePathString,
Include,
build_name(Config),
LogDir,