Add tests for mad_deps

test/mad_deps_SUITE.erl

@@ -5,18 +5,23 @@
 -export([path/1]).
 -export([name_and_repo/1]).
 -export([checkout_to/1]).
+-export([get_publisher/1]).
+-export([clone/1]).
+
+-import(helper, [get_value/2]).
 
 
 all() ->
-    [container, path, name_and_repo, checkout_to].
+    [container, path, name_and_repo, checkout_to, get_publisher, clone].
 
 container(_) ->
-    Path = filename:join([mad_utils:home(), ".mad", "container"]),
+    Path = filename:join([os:cmd("echo -n $HOME"), ".mad", "container"]),
     Path = mad_deps:container().
 
 path(_) ->
-    Path = filename:join([mad_utils:home(), ".mad", "container", "X"]),
-    Path = mad_deps:path("X").
+    Path = filename:join([os:cmd("echo -n $HOME"), ".mad", "container",
+                          "publisher", "repo"]),
+    Path = mad_deps:path("publisher", "repo").
 
 name_and_repo(_) ->
     Dep = {x,".*",{git,"blah, blah..",{tag,"v0.8.10"}}},
@@ -25,3 +30,22 @@ name_and_repo(_) ->
 checkout_to(_) ->
     "v0.8.10" = mad_deps:checkout_to({tag, "v0.8.10"}),
     "develop" = mad_deps:checkout_to({branch, "develop"}).
+
+get_publisher(_) ->
+    "erlang" = mad_deps:get_publisher("git://github.com/erlang/otp.git"),
+    "s1n4" = mad_deps:get_publisher("https://github.com/s1n4/mad"),
+    "xyz" = mad_deps:get_publisher("https://bitbucket.org/xyz/repo").
+
+clone(Config) ->
+    DataDir = get_value(data_dir, Config),
+    DepsDir = filename:join(DataDir, "deps"),
+    os:cmd("rm -rf " ++ DepsDir),
+    %% make container and deps directories
+    os:cmd("mkdir -p " ++ mad_deps:container()),
+    os:cmd("mkdir -p " ++ DepsDir),
+    Deps = [{mad, ".*",
+             {git, "git://github.com/s1n4/mad.git", {branch, "master"}}
+            }],
+    mad_deps:clone(DataDir, Deps),
+    {ok, _} = file:list_dir(filename:join(DepsDir, "mad")),
+    os:cmd("rm -rf " ++ DepsDir).