anchor.diff:  [
       {Setup, fun(_, Data) ->
           {Message, fun() ->
  -            Ets = (catch caterpillar_deploy:init_ets(Data)),
  +            Ets = (catch caterpillar_deploy:init_ets(Data, "./test")),
               ?assertEqual(
                   Result,
                   [{Ident, lists:last(filename:split(Path))} || {Ident, Path} <- lists:sort(ets:tab2list(Ets))]
  
positive.code:     {Packages, fun(_, State) ->
          {Message, fun() ->
              Result = (catch caterpillar_deploy:rotate_packages(Deploy, State)),
              ?assertEqual(ok, Result),
              Check(State)
          end}
      end} || {Message, Packages, Deploy, Check} <- [
  
negative.code:     end,
      fun(Idents, #state{ets=Ets}) ->
          ets:delete(Ets),
          [caterpillar_utils:del_dir(Path) || {Ident, Archs} <- Idents, {Arch, Branches} <- Archs, {Branch, Path} <- Branches]
      end,
  [
      {Idents, fun(_, State) ->
  