WIP

Test that all the correct locks are set for an upgrade run.

Now to actually re-run the install deps and prove it works

1 files changed, 11 insertions, 1 deletions

diff --git a/test/rebar_test_utils.erl b/test/rebar_test_utils.erl
index 6095d6d..af40995 100644
--- a/test/rebar_test_utils.erl
+++ b/test/rebar_test_utils.erl
@@ -53,7 +53,17 @@ run_and_check(Config, RebarConfig, Command, Expect) ->
             ?assertEqual({error, Reason}, Res);
         {ok, Expected} ->
             {ok, _} = Res,
-            check_results(AppDir, Expected)
+            check_results(AppDir, Expected);
+        {unlocked, Expected} ->
+            ct:pal("Expected: ~p", [Expected]),
+            {ok, ResState} = Res,
+            Locks = rebar_state:lock(ResState),
+            ct:pal("Locks: ~p", [Locks]),
+            ?assertEqual(lists:sort(Expected),
+                         lists:sort([rebar_app_info:name(Lock)
+                                     || Lock <- Locks]));
+        return ->
+            Res
     end.
 
 %% @doc Creates a dummy application including: