anchor.diff:  %
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
   on({l_on_cseq, unittest_clear_lease_list, Pid}, State) ->
  -  comm:send(Pid, {l_on_cseq, unittest_clear_lease_list_success}),
  +    ?ASSERT(util:is_unittest()), % may only be used in unit-tests
  +    comm:send(Pid, {l_on_cseq, unittest_clear_lease_list_success}),
       dht_node_state:set_lease_list(State, lease_list:empty());
   
   %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
positive.code: on({l_on_cseq, unittest_update_reply,
      {qwrite_deny, _ReqId, _Round, _Value, {content_check_failed, _Reason}},
      Old, New, _Mode, Caller}, State) ->
     comm:send_local(Caller, {l_on_cseq, unittest_update_failed, Old, New}),
     State;
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %
  
negative.code: 
  on({l_on_cseq, unittest_update_reply, {qwrite_done, _ReqId, _Round, Value},
      Old, New, Mode, Caller}, State) ->
      ?ASSERT(util:is_unittest()), % may only be used in unit-tests
      %% io:format("successful update~n", []),
      comm:send_local(Caller, {l_on_cseq, unittest_update_success, Old, New}),
      lease_list:update_lease_in_dht_node_state(Value, State, Mode, unittest);
  