From d67a5bce5211968527f66754c025373cab77e8ed Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Mon, 24 Aug 2015 09:49:52 -0500
Subject: fix pkgs provider output for new package index format

---
 src/rebar_prv_packages.erl | 10 +++++++---
 test/rebar_pkg_SUITE.erl   | 12 +++++++++++-
 2 files changed, 18 insertions(+), 4 deletions(-)

diff --git a/src/rebar_prv_packages.erl b/src/rebar_prv_packages.erl
index f5d9e38..5b8ea66 100644
--- a/src/rebar_prv_packages.erl
+++ b/src/rebar_prv_packages.erl
@@ -35,8 +35,12 @@ format_error(load_registry_fail) ->
     "Failed to load package regsitry. Try running 'rebar3 update' to fix".
 
 print_packages() ->
-    SortedPkgs = ets:foldl(fun({{Pkg, Vsn}, _}, Acc) ->
-                                   orddict:append_list(Pkg, [Vsn], Acc)
+    SortedPkgs = ets:foldl(fun({package_index_version, _}, Acc) ->
+                                   Acc;
+                              ({Pkg, Vsns}, Acc) ->
+                                   orddict:store(Pkg, Vsns, Acc);
+                              (_, Acc) ->
+                                   Acc
                            end, orddict:new(), ?PACKAGE_TABLE),
 
     orddict:map(fun(Name, Vsns) ->
@@ -45,7 +49,7 @@ print_packages() ->
                                                                      ,ec_semver:parse(B))
                                                 end, Vsns),
                         VsnStr = join(SortedVsns, <<", ">>),
-                        io:format("~s:~n    Versions: ~s~n~n", [Name, VsnStr])
+                        ?CONSOLE("~s:~n    Versions: ~s~n", [Name, VsnStr])
                 end, SortedPkgs).
 
 -spec join([binary()], binary()) -> binary().
diff --git a/test/rebar_pkg_SUITE.erl b/test/rebar_pkg_SUITE.erl
index b0b7eda..b3201ad 100644
--- a/test/rebar_pkg_SUITE.erl
+++ b/test/rebar_pkg_SUITE.erl
@@ -11,7 +11,7 @@
 -define(good_checksum, <<"1C6CE379D191FBAB41B7905075E0BF87CBBE23C77CECE775C5A0B786B2244C35">>).
 
 all() -> [good_uncached, good_cached, badindexchk, badpkg,
-          bad_to_good, good_disconnect, bad_disconnect].
+          bad_to_good, good_disconnect, bad_disconnect, pkgs_provider].
 
 init_per_suite(Config) ->
     application:start(meck),
@@ -20,6 +20,8 @@ init_per_suite(Config) ->
 end_per_suite(_Config) ->
     application:stop(meck).
 
+init_per_testcase(pkgs_provider, Config) ->
+    Config;
 init_per_testcase(good_uncached=Name, Config0) ->
     Config = [{good_cache, false},
               {pkg, {<<"goodpkg">>, <<"1.0.0">>}}
@@ -74,6 +76,8 @@ init_per_testcase(bad_disconnect=Name, Config0) ->
     meck:expect(httpc, request, fun(_, _, _, _, _) -> {error, econnrefused} end),
     Config.
 
+end_per_testcase(pkgs_provider, Config) ->
+    Config;
 end_per_testcase(_, Config) ->
     unmock_config(Config),
     Config.
@@ -151,6 +155,12 @@ bad_disconnect(Config) ->
     ?assertEqual({fetch_fail, Pkg, Vsn},
                  rebar_pkg_resource:download(Tmp, {pkg, Pkg, Vsn}, State)).
 
+pkgs_provider(Config) ->
+    Config1 = rebar_test_utils:init_rebar_state(Config),
+    rebar_test_utils:run_and_check(
+      Config1, [], ["pkgs"],
+        {ok, []}
+    ).
 
 %%%%%%%%%%%%%%%
 %%% Helpers %%%
-- 
cgit v1.1