anchor.diff:          {
               "sync event rebuild_package",
               fun() -> 
  +                Self = self(),
                   spawn(fun() ->
                       caterpillar_event:register_service(repository),
  -                    receive
  +                    Self ! spawned,
  +                    case caterpillar_test_support:recv(10) of
                           {_, From, {rebuild_package, #package{name=name, branch=branch}}} ->
  -                            gen_server:reply(From, ok)
  -                    after 10 ->
  -                        timeout
  -                    end
  -                end),
  -                timer:sleep(1),
  +                            gen_server:reply(From, ok);
  +                        _ -> ok
  +                    end
  +                end),
  +                ?assertEqual(spawned, caterpillar_test_support:recv(10)),
                   ?assertEqual([{service, repository}], caterpillar_event:get_info()),
                   ?assertEqual(ok, caterpillar_event:sync_event({rebuild_package, #package{name=name, branch=branch}}))
               end
  
positive.code:                     lists:sort(caterpillar_event:get_info())
                  ),
                  caterpillar_event:event({clean_packages, [#archive{}]}),
                  Receive = fun() ->
                      receive {_, Msg} ->
                          Msg
                      after 10 ->
                          timeout
                      end
                  end,
                  ?assertEqual(
                      [{clean_packages, [#archive{}]} || _ <- [w1, w2]],
                      [Receive() || _ <- [w1, w2]]
                  )
              end
          }
  
negative.code:             fun() ->
                  caterpillar_event:register_service(repository),
                  caterpillar_event:register_worker(test, work_id),
                  ?assertEqual([{service, repository}, {worker, test}], lists:sort(caterpillar_event:get_info())),
                  timer:sleep(10),
                  ?assertMatch(
                      {messages, [{_, _, {get_archives, work_id}}]},
  