anchor.diff:  test_cluster(Nodes, PingsNum) ->
     ssl:start(),
     Ans = test_ccm(Nodes),
  -  Ans2 = ping_test(Nodes, PingsNum),
  +  {PongsNum, Time, Ans2} = ping_test(Nodes, PingsNum),
     Ans3 = test_ccm(Nodes),
  +
     FinalAns = (Ans and Ans2 and Ans3),
     io:format("Final test result: ~s~n", [FinalAns]),
  -  FinalAns.
  +  io:format("Test time in mocroseconds: ~b, pongs num: ~b, pongs per sec: ~f~n", [Time, PongsNum, PongsNum/Time*1000000]),
  +  {PongsNum, Time, FinalAns}.
   
   test_ccm(Nodes) ->
     Jobs = ?Modules,
  
positive.code: -include("communication_protocol_pb.hrl").
  
  %% API
  -export([test_cluster/1, test_cluster/2]).
  
  test_cluster(Nodes) ->
    test_cluster(Nodes, 500).
  
negative.code:     Num -> waitForAns(ProcNum-1, Ans + Num)
    after
      5000 -> Ans
    end.
  
  waitForAns2(ProcNum) ->
    waitForAns2(ProcNum, {0, 0, true}).
  waitForAns2(0, Ans) ->
    Ans;
  waitForAns2(ProcNum, {PongsNum, Time, FinalAns}) ->
    receive
      {PongsNum2, Time2, FinalAns2} ->
        waitForAns2(ProcNum-1, {PongsNum + PongsNum2, erlang:max(Time, Time2), FinalAns and FinalAns2})
    after
      10000 -> {PongsNum, Time, FinalAns}
    end.