anchor.diff:      ct:pal("mock leases~n~w~n~w~n", [L1, L2]),
       {L1, L2}.
   
  --spec create_lease(?RT:key(), ?RT:key()) -> {l_on_cseq:lease_t(), l_on_cseq:lease_t()}.
  +-spec create_lease(?RT:key(), ?RT:key()) -> l_on_cseq:lease_t().
   create_lease(From, To) ->
       L = l_on_cseq:unittest_create_lease_with_range(From, To),
       Range = node:mk_interval_between_ids(From, To),
  
positive.code:                      get_renewal_counter(MockState)}),
      {State, MockState};
  
  % intercept renews
  on({l_on_cseq, renew, _OldLease, _Mode} = Msg,
     {State, MockState}) ->
  
negative.code:              Counter
      end.
  
  -spec get_lease_list() -> lease_list:lease_list().
  get_lease_list() ->
      comm:send_local(get_mock_pid(), {get_lease_list, self()}),
      receive
          {get_lease_list_response, List} ->
               List
      end.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  % Message Loop
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  