rebar/inttest/tdeps2/tdeps2_rt.erl
Tuncer Ayaz 77a0eb6fe4 Fix #56 (always-on recursion)
Always-on recursive application of all rebar commands causes too many
issues. Recursive application is required for:
1. dealing with dependencies: get-deps, update-deps, and compile of deps
   right after get-deps or update-deps
2. projects with a riak-like apps/ project structure and dev process

The vast majority of projects are not structured like riak. Therefore,
moving forward it's best to (by default) restrict recursive behavior to
dealing with deps. This commit does that and also adds command line and
rebar.config options for controlling or configuring recursion. Also, we
introduce two meta commands: prepare-deps (equivalent to rebar -r
get-deps compile) and refresh-deps (equivalent to rebar -r update-deps
compile). riak-like projects can extend the list of recursive commands
(to include 'eunit' and 'compile') by adding
{recursive_cmds, [eunit, compile]} to rebar.config.
2014-03-11 21:11:36 +00:00

66 lines
2 KiB
Erlang

-module(tdeps2_rt).
-compile(export_all).
%% Exercise transitive dependencies where there are multiple files
%% depending on the same set of deps
%% [A1, A2] -> B -> C ; A1 and A2 includes B.hrl which includes C.hrl
files() ->
[
%% A1 application
{create, "apps/a1/ebin/a1.app", app(a1, [a1])},
{copy, "a.rebar.config", "apps/a1/rebar.config"},
{template, "a.erl", "apps/a1/src/a1.erl", dict:from_list([{module, a1}])},
%% A2 application
{create, "apps/a2/ebin/a2.app", app(a2, [a2])},
{copy, "a.rebar.config", "apps/a2/rebar.config"},
{template, "a.erl", "apps/a2/src/a2.erl", dict:from_list([{module, a2}])},
{copy, "root.rebar.config", "rebar.config"},
{copy, "../../rebar", "rebar"},
%% B application
{create, "repo/b/ebin/b.app", app(b, [])},
{copy, "b.rebar.config", "repo/b/rebar.config"},
{copy, "b.hrl", "repo/b/include/b.hrl"},
%% C application
{create, "repo/c/ebin/c.app", app(c, [])},
{copy, "c.hrl", "repo/c/include/c.hrl"}
].
apply_cmds([], _Params) ->
ok;
apply_cmds([Cmd | Rest], Params) ->
io:format("Running: ~s (~p)\n", [Cmd, Params]),
{ok, _} = retest_sh:run(Cmd, Params),
apply_cmds(Rest, Params).
run(_Dir) ->
%% Initialize the b/c apps as git repos so that dependencies pull
%% properly
GitCmds = ["git init",
"git add -A",
"git config user.email 'tdeps@example.com'",
"git config user.name 'tdeps'",
"git commit -a -m 'Initial Commit'"],
ok = apply_cmds(GitCmds, [{dir, "repo/b"}]),
ok = apply_cmds(GitCmds, [{dir, "repo/c"}]),
{ok, _} = retest_sh:run("./rebar -v get-deps", []),
{ok, _} = retest_sh:run("./rebar -v -r compile", []),
ok.
%%
%% Generate the contents of a simple .app file
%%
app(Name, Modules) ->
App = {application, Name,
[{description, atom_to_list(Name)},
{vsn, "1"},
{modules, Modules},
{registered, []},
{applications, [kernel, stdlib]}]},
io_lib:format("~p.\n", [App]).