summaryrefslogtreecommitdiff
path: root/inttest/tdeps1/tdeps1_rt.erl
diff options
context:
space:
mode:
Diffstat (limited to 'inttest/tdeps1/tdeps1_rt.erl')
-rw-r--r--inttest/tdeps1/tdeps1_rt.erl60
1 files changed, 0 insertions, 60 deletions
diff --git a/inttest/tdeps1/tdeps1_rt.erl b/inttest/tdeps1/tdeps1_rt.erl
deleted file mode 100644
index a72cc83..0000000
--- a/inttest/tdeps1/tdeps1_rt.erl
+++ /dev/null
@@ -1,60 +0,0 @@
--module(tdeps1_rt).
-
--compile(export_all).
-
-%% Exercise transitive dependencies
-%% A -> B -> C, where A includes a .hrl from B which includes .hrl from C
-
-files() ->
- [
- %% A application
- {create, "ebin/a.app", app(a, [a])},
- {copy, "a.rebar.config", "rebar.config"},
- {copy, "a.erl", "src/a.erl"},
- {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'"],
- apply_cmds(GitCmds, [{dir, "repo/b"}]),
- apply_cmds(GitCmds, [{dir, "repo/c"}]),
-
- {ok, _} = retest_sh:run("./rebar get-deps", []),
- {ok, _} = retest_sh:run("./rebar compile", []),
-
- true = filelib:is_regular("ebin/a.beam"),
- 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]).