anchor.diff:  wait_for_expired_leases(Config) ->
       {leases_timeout, LeasesTimeout} = lists:keyfind(leases_timeout, 1, Config),
       timer:sleep(LeasesTimeout).
  +
  +%%@doc Prints a list of tuples showing which value is stored in which dht node
  +%%     Format : [{Value, [list_of_dht_nodes_value_is_stored_in]}]
  +print_prbr_data() ->
  +    DhtNodes = lists:sort(pid_groups:find_all(dht_node)),
  +    %% get list of all {value, dht_node_idx} pairs
  +    PrbrData = lists:flatten(
  +                   [begin
  +                       comm:send_local(ThisNode, {prbr, tab2list_raw, kv_db, self()}),
  +                       receive
  +                           {_, List} -> [{prbr:entry_val(E), ThisNode} || E <- List]
  +                       after 1000 ->
  +                           ct:pal("DHT node ~p does not reply...", [ThisNode]),
  +                           []
  +                       end
  +                   end || ThisNode <- DhtNodes]),
  +    GroupedByValueDict = lists:foldl(fun({K, V}, D) -> dict:append(K, V, D) end,
  +                                             dict:new(), PrbrData),
  +    GroupedValues = lists:sort(dict:to_list(GroupedByValueDict)),
  +    ct:pal("PRBR state:~nFormat [{Value, [list_of_dht_nodes_value_is_stored_in]}]~n"
  +           "~100p", [GroupedValues]).
  
positive.code:             true;
          X ->
              ct:pal("found ~p of 100 elements", [X]),
              100 = X
      end.
  
  
negative.code:             _ = [?ASSERT(db_mnesia:close_and_delete(db_mnesia:open(X))) || X <- PidGroupTabs],
              ct:pal("wait for check_leases"),
              lease_checker2:wait_for_clean_leases(500, [{ring_size, ring_size()-1}]),
  
              ct:pal("PRBR state after leases expired"),
              print_prbr_data(),
  
              %% check data integrity
              ct:pal("check data integrity"),
              _ = check_data_integrity(),
              %% "repair" replicas
              ct:pal("repair replicas"),
              _ = repair_replicas(),
  
              ct:pal("PRBR state after calling repair_replicas"),
              print_prbr_data(),
  
              %% add node to reform ring_size() node ring
              ct:pal("add node"),
              _ = admin:add_nodes(1),
  