anchor.diff:                    l_on_cseq:set_timeout(
                       l_on_cseq:set_version(
                         l_on_cseq:set_epoch(Old, l_on_cseq:get_epoch(Old)+1),
  -                    0)),
  -                  other_range)
  +                      0)),
  +                  obfuscated_intervals_all())
           end,
       WaitF = fun wait_for_epoch_update/2,
       test_renew_helper(_Config, ModifyF, WaitF),
  
positive.code:     wait_for_lease_helper(Id, fun (L) -> L == Lease end).
  
  wait_for_lease_version(Id, Epoch, Version) ->
      wait_for_lease_helper(Id,
                            fun (Lease) ->
                                    %ct:pal("want ~p:~p; have ~p:~p", [Epoch, Version, l_on_cseq:get_epoch(Lease), l_on_cseq:get_version(Lease)]),
                                    Epoch   == l_on_cseq:get_epoch(Lease)
                            andalso Version == l_on_cseq:get_version(Lease)
                            end).
  
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);
  