anchor.diff: -%% @copyright 2012-2014 Zuse Institute Berlin
  +%% @copyright 2012-2015 Zuse Institute Berlin
   
   %   Licensed under the Apache License, Version 2.0 (the "License");
   %   you may not use this file except in compliance with the License.
  
positive.code: change_owner_pid(Pid, State, DBName) ->
      LeaseDB = dht_node_state:get(State, DBName),
      ct:pal("LeaseDB ~p", [LeaseDB]),
      _ = [ 
        prbr:set_entry({Key, 
                        {ReadRound, ReadClientId, ReadWriteFilter}, 
                        {WriteRound, WriteClientId, WriteWriteFilter}, 
                        l_on_cseq:set_owner(Lease, Pid)}, LeaseDB)
  
        || {Key, 
            {ReadRound, ReadClientId, ReadWriteFilter}, 
            {WriteRound, WriteClientId, WriteWriteFilter},
            Lease} 
               <- prbr:tab2list_raw_unittest(LeaseDB)],
      ok.
  
  
negative.code:     % trigger renewal on all nodes
      ct:pal("cr: renew all nodes ~p", [DHTNodes]),
      [ comm:send_local(Node, {l_on_cseq, renew_leases}) || Node <- DHTNodes],
  
      % wait for leases to reappear
      ct:pal("cr: wait for leases to reappear"),
      case config:read(replication_factor) of
  