anchor.diff:              _ = [?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),
  
positive.code:             true;
          X ->
              ct:pal("found ~p of 100 elements", [X]),
              100 = X
      end.
  
  
negative.code:             %% prbr data of node for diagnostic purpose...
              comm:send_local(RandomNode, {prbr, tab2list_raw, kv_db, self()}),
              receive
                  {_, NodeData} -> NodeData
              end,
              Values = [prbr:entry_val(E) || E <- NodeData],
              ct:pal("Number of values: ~p~nNumber of unique values: ~p~nValue list:~p",
                     [length(Values), length(lists:usort(Values)), lists:sort(Values)]),
  
  