anchor.diff:          end, WorkerNodes),
   
       % Check if all workers are in the report.
  -    {Workers, _} = gen_server:call({global, ?CCM}, get_workers, 1000),
  +    {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),
  
positive.code: %%% 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
  %%%===================================================================
  
negative.code: nagios_test(Config) ->
      [Worker1, _, _] = WorkerNodes = ?config(op_worker_nodes, Config),
  
      {ok, "200", _, XMLString} = rpc:call(Worker1, ibrowse, send_req, [?HEALTHCHECK_PATH, [], get]),
  
      {Xml, _} = xmerl_scan:string(XMLString),
  
  