- -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 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]).
|
