mirror of
https://github.com/correl/rebar.git
synced 2024-11-14 19:19:30 +00:00
parent
e3d2142df5
commit
258ab8a623
2 changed files with 9 additions and 10 deletions
1
THANKS
1
THANKS
|
@ -125,3 +125,4 @@ YeJun Su
|
|||
Yuki Ito
|
||||
alisdair sullivan
|
||||
Alexander Verbitsky
|
||||
Pierre Fenoll
|
||||
|
|
|
@ -148,11 +148,9 @@ test_compile(Config, Cmd, OutDir) ->
|
|||
%% in src but in a subdirectory of src. Cover only looks in cwd and ../src
|
||||
%% for source files. Also copy files from src_dirs.
|
||||
SrcDirs = rebar_utils:src_dirs(proplists:append_values(src_dirs, ErlOpts1)),
|
||||
SrcErls = lists:foldl(
|
||||
fun(Dir, Acc) ->
|
||||
Files = rebar_utils:find_files(Dir, ".*\\.erl\$"),
|
||||
lists:append(Acc, Files)
|
||||
end, [], SrcDirs),
|
||||
SrcErls = lists:flatmap(
|
||||
fun (Dir) -> rebar_utils:find_files(Dir, ".*\\.erl$") end,
|
||||
SrcDirs),
|
||||
|
||||
%% If it is not the first time rebar eunit or rebar qc is executed,
|
||||
%% there will be source files already present in OutDir. Since some
|
||||
|
@ -163,17 +161,17 @@ test_compile(Config, Cmd, OutDir) ->
|
|||
%% rebar_file_utils:cp_r.
|
||||
|
||||
%% Get the full path to a file that was previously copied in OutDir
|
||||
ToCleanUp = fun(F, Acc) ->
|
||||
ToCleanUp = fun(F) ->
|
||||
F2 = filename:basename(F),
|
||||
F3 = filename:join([OutDir, F2]),
|
||||
case filelib:is_regular(F3) of
|
||||
true -> [F3|Acc];
|
||||
false -> Acc
|
||||
true -> F3;
|
||||
false -> []
|
||||
end
|
||||
end,
|
||||
|
||||
ok = rebar_file_utils:delete_each(lists:foldl(ToCleanUp, [], TestErls)),
|
||||
ok = rebar_file_utils:delete_each(lists:foldl(ToCleanUp, [], SrcErls)),
|
||||
ok = rebar_file_utils:delete_each(lists:flatmap(ToCleanUp, TestErls)),
|
||||
ok = rebar_file_utils:delete_each(lists:flatmap(ToCleanUp, SrcErls)),
|
||||
|
||||
ok = rebar_file_utils:cp_r(SrcErls ++ TestErls, OutDir),
|
||||
|
||||
|
|
Loading…
Reference in a new issue