add test for single atom pkg dep picking the highest available

2 files changed, 44 insertions, 3 deletions

diff --git a/test/mock_pkg_resource.erl b/test/mock_pkg_resource.erl
index afb6fb4..615e8a5 100644
--- a/test/mock_pkg_resource.erl
+++ b/test/mock_pkg_resource.erl
@@ -110,6 +110,8 @@ mock_pkg_index(Opts) ->
     GraphParts = to_graph_parts(Dict),
     Digraph = rebar_digraph:restore_graph(GraphParts),
     meck:new(rebar_packages, [passthrough, no_link]),
+    meck:expect(rebar_packages, registry,
+                fun(_State) -> {ok, to_registry(Deps)} end),
     meck:expect(rebar_packages, get_packages,
                 fun(_State) -> {Dict, Digraph} end).
 
@@ -117,10 +119,23 @@ mock_pkg_index(Opts) ->
 %%%%%%%%%%%%%%%
 %%% Helpers %%%
 %%%%%%%%%%%%%%%
+
+to_registry(Deps) ->
+    Tid = ets:new(registry, []),
+    lists:foreach(fun({{Name, Vsn}, _}) ->
+                          case ets:lookup(Tid, Name) of
+                              [{_, [Vsns]}] ->
+                                  ets:insert(Tid, {Name, [[Vsn | Vsns]]});
+                              _ ->
+                                  ets:insert(Tid, {Name, [[Vsn]]})
+                          end
+                  end, Deps),
+    Tid.
+
 all_files(Dir) ->
     filelib:wildcard(filename:join([Dir, "**"])).
 
-archive_names(Dir, App, Vsn, Files) ->
+archive_names(Dir, _App, _Vsn, Files) ->
     [{(F -- Dir) -- "/", F} || F <- Files].
 
 find_parts(Apps, Skip) -> find_parts(Apps, Skip, dict:new()).
diff --git a/test/rebar_compile_SUITE.erl b/test/rebar_compile_SUITE.erl
index bc72913..2fdf36d 100644
--- a/test/rebar_compile_SUITE.erl
+++ b/test/rebar_compile_SUITE.erl
@@ -18,7 +18,8 @@
          deps_in_path/1,
          delete_beam_if_source_deleted/1,
          checkout_priority/1,
-         compile_plugins/1]).
+         compile_plugins/1,
+         highest_version_of_pkg_dep/1]).
 
 -include_lib("common_test/include/ct.hrl").
 -include_lib("eunit/include/eunit.hrl").
@@ -45,7 +46,7 @@ all() ->
      build_all_srcdirs, recompile_when_hrl_changes,
      recompile_when_opts_change, dont_recompile_when_opts_dont_change,
      dont_recompile_yrl_or_xrl, delete_beam_if_source_deleted,
-     deps_in_path, checkout_priority, compile_plugins].
+     deps_in_path, checkout_priority, compile_plugins, highest_version_of_pkg_dep].
 
 build_basic_app(Config) ->
     AppDir = ?config(apps, Config),
@@ -420,3 +421,28 @@ compile_plugins(Config) ->
         Config, RConf, ["compile"],
         {ok, [{app, Name}, {plugin, PluginName}, {dep, DepName}]}
     ).
+
+highest_version_of_pkg_dep(Config) ->
+    AppDir = ?config(apps, Config),
+
+    Name = rebar_test_utils:create_random_name("app1_"),
+    Vsn = rebar_test_utils:create_random_vsn(),
+    rebar_test_utils:create_app(AppDir, Name, Vsn, [kernel, stdlib]),
+
+    PkgName = rebar_test_utils:create_random_name("pkg1_"),
+    mock_git_resource:mock([]),
+    mock_pkg_resource:mock([
+        {pkgdeps, [{{iolist_to_binary(PkgName), <<"0.1.0">>}, []},
+                   {{iolist_to_binary(PkgName), <<"0.0.1">>}, []},
+                   {{iolist_to_binary(PkgName), <<"0.1.3">>}, []},
+                   {{iolist_to_binary(PkgName), <<"0.1.1">>}, []}]}
+    ]),
+
+    RConfFile = rebar_test_utils:create_config(AppDir, [{deps, [list_to_atom(PkgName)]}]),
+    {ok, RConf} = file:consult(RConfFile),
+
+    %% Build with deps.
+    rebar_test_utils:run_and_check(
+        Config, RConf, ["compile"],
+        {ok, [{app, Name}, {dep, PkgName, <<"0.1.3">>}]}
+    ).