anchor.diff:  %%% Internal functions
   %%%===================================================================
   
  -% TODO remove retries when cluster init is checked with use of nagios
  -perform_nagios_healthcheck(Node) ->
  -    perform_nagios_healthcheck(Node, 20).
  -
  -perform_nagios_healthcheck(_, 0) ->
  -    {error, max_retries_to_nagios_reached};
  -
  -% Requests health report from nagios endpoint.
  -perform_nagios_healthcheck(Node, Retries) ->
  -    case rpc:call(Node, ibrowse, send_req, [?HEALTHCHECK_PATH, [], get]) of
  -        {ok, "200", _, Response} ->
  -            {ok, Response};
  -        {ok, OtherCode, Headers, Response} ->
  -            {error, {wrong_nagios_response, [
  -                {code, OtherCode},
  -                {headers, Headers},
  -                {body, Response}
  -            ]}};
  -        _ ->
  -            timer:sleep(timer:seconds(1)),
  -            perform_nagios_healthcheck(Node, Retries - 1)
  -    end.
  -
   %%%===================================================================
   %%% SetUp and TearDown functions
   %%%===================================================================
  
positive.code: nagios_test(Config) ->
      [Worker1, _, _] = WorkerNodes = ?config(op_worker_nodes, Config),
  
      {ok, XMLString} = perform_nagios_healthcheck(Worker1),
  
      {Xml, _} = xmerl_scan:string(XMLString),
  
  
negative.code:         end, WorkerNodes),
  
      % Check if all workers are in the report.
      {Workers, _} = rpc:call(Worker1, gen_server, call, [{global, ?CCM}, get_workers, 1000]), %todo check why {global, ?CCM} is not visible in test
      lists:foreach(
          fun({WNode, WName}) ->
              WorkersOnNode = proplists:get_value(atom_to_list(WNode), WorkersByNodeXML),
  