anchor.diff:      end} || {Message, Request, Setup, Check, Result} <- [
           {
               "changes test",
  -            {changes, #changes{packages=[#package{}], archives=[#archive{}], notify=#notify{}}},
  +            {changes, #changes{packages=[#repository_package{}], archives=[#archive{}], notify=#notify{}}},
               #state{work_id_file="test_work_id_file", dets="test_d", work_id=1, ets=ets:new(t, [])},
               fun(#state{work_id_file=BIF, dets=D}) -> 
                   ?assertEqual(
  
positive.code:         {
              "both packages modified",
              [{{"package1", "branch1"}, 10}, {{"package2", "branch2"}, 10}],
              [#package{name=Name, branch=Branch} || {Name, Branch} <- [
                  {"package1", "branch1"}, {"package2", "branch2"}
              ]],
              {ok, [
                  #package{name= "package1", branch= "branch1", current_revno=1, old_revno=10},
                  #package{name= "package2", branch= "branch2", current_revno=1, old_revno=10}
              ]}
          },
          {
              "plugin returns bad response",
              [],
              [#package{name= "crash", branch= "me"}],
              {ok, [
                  #package{
                      name="crash", branch="me", 
                      status=error,
                      failed_at=find_modified_packages,
  
negative.code:     end} || {Message, Packages, Result} <- [
          {
              "vcs returns tag",
              [#repository_package{} || _ <- lists:seq(1, 2)],
              {ok, [#repository_package{tag="tag"} || _ <- lists:seq(1, 2)]}
          },
          {
              "vcs crashes on get_tag",
              [#repository_package{}, #repository_package{branch="crash"}],
              {ok, [#repository_package{tag="tag"}, #repository_package{branch="crash"}]}
          }
      ]
  ]}.
  