anchor.diff:               {lease_split, 4}, %% sends messages
                {lease_merge, 2}, %% sends messages
                {lease_send_lease_to_node, 2}, %% sends messages
  +             {lease_split_and_change_owner, 5}, %% sends messages
                {id, 1}, %% todo
                {split_range, 2}, %% todo
                {unittest_lease_update, 2}, %% only for unittests
  
positive.code: 
  wait_for_delete(Id, _Old) ->
      DHTNode = pid_groups:find_a(dht_node),
      wait_for(fun () ->
                       {L, _} = get_dht_node_state(DHTNode, lease_list),
                       lists:all(fun(Lease) ->
  
negative.code: 
  wait_for_lease_helper(Id, F) ->
      wait_for(fun () ->
                       DHTNode = pid_groups:find_a(dht_node),
                       comm:send_local(DHTNode, {get_state, comm:this(), lease_list}),
                       {A, P} = receive
                               {get_state_response, {ActiveList, PassiveList}} ->
                                   {ActiveList, PassiveList}
                           end,
                       ct:pal("~p ~p", [A, P]),
                       case l_on_cseq:read(Id) of
                           {ok, Lease} ->
                               F(Lease);
  