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: 
  -spec unittest_create_lease_with_range(?RT:key(), ?RT:key()) -> lease_t().
  unittest_create_lease_with_range(From, To) ->
      ?ASSERT(util:is_unittest()), % may only be used in unit-tests
      Range = node:mk_interval_between_ids(From, To),
      Id = id(Range),
      #lease{id      = Id,
  