Test mad_compile:deps/2

Makefile

@@ -1,5 +1,5 @@
 PROJECT = mad
-CT_SUITES = mad_utils mad_deps
+CT_SUITES = mad_utils mad_deps mad_compile
 
 .PHONY: all build
 

test/mad_compile_SUITE.erl

@@ -2,15 +2,20 @@
 
 -export([all/0]).
 -export([deps/1]).
--export([app/1]).
 
 -import(helper, [get_value/2]).
 
 
 all() ->
-    [deps, app].
+    [deps].
 
 deps(Config) ->
     DataDir = get_value(data_dir, Config),
-    DepsDir = filename:join("..", "mad_deps_SUITE_data"),
-    ok = mad_compile:deps(DepsDataDir, "mad").
+    Deps = [{one, "", {}}, {two, "", {}}],
+    ok = mad_compile:deps(DataDir, Deps),
+    pong = one:ping(),
+    pong = two:ping(),
+    ok = application:load(one),
+    ok = application:load(two),
+    {ok, [one]} = application:get_key(one, modules),
+    {ok, [two]} = application:get_key(two, modules).

test/mad_compile_SUITE_data/deps/one/src/one.app.src

@@ -0,0 +1,11 @@
+{application, one,
+ [
+  {description, ""},
+  {vsn, "1"},
+  {registered, []},
+  {applications, [
+                  kernel,
+                  stdlib
+                 ]},
+  {env, []}
+ ]}.

test/mad_compile_SUITE_data/deps/one/src/one.erl

@@ -0,0 +1,4 @@
+-module(one).
+-export([ping/0]).
+
+ping() -> pong.

test/mad_compile_SUITE_data/deps/two/src/two.app.src

@@ -0,0 +1,11 @@
+{application, two,
+ [
+  {description, ""},
+  {vsn, "1"},
+  {registered, []},
+  {applications, [
+                  kernel,
+                  stdlib
+                 ]},
+  {env, []}
+ ]}.

test/mad_compile_SUITE_data/deps/two/src/two.erl

@@ -0,0 +1,4 @@
+-module(two).
+-export([ping/0]).
+
+ping() -> pong.