anchor.diff:    NewState :: term().
   %% ====================================================================
   increase_state_num(State) ->
  -  {Load, AvgLoad} = calculate_load(State#cm_state.nodes, State#cm_state.workers),
  +  {NodesLoad, AvgLoad} = calculate_node_load(State#cm_state.nodes, short),
  +  WorkersLoad = calculate_worker_load(State#cm_state.workers),
  +  Load = calculate_load(NodesLoad, WorkersLoad),
     update_dns_state(State#cm_state.workers, Load, AvgLoad),
   
     NewStateNum = State#cm_state.state_num + 1,
  
positive.code:   V = gen_server:call({Module, Node}, {test_call, 1, get_version}),
    get_workers_versions(Workers, [{Node, Module, V} | Versions]).
  
  calculate_node_load(Nodes) ->
    GetNodeInfo = fun(Node) ->
      Info = try
        gen_server:call({?Node_Manager_Name, Node}, {get_node_stats, short})
      catch
        _:_ ->
          lager:error([{mod, ?MODULE}], "Can not get status of node: ~s", [Node]),
  
negative.code: %% Test API
  %% ====================================================================
  -ifdef(TEST).
  -export([update_dns_state/3]).
  -endif.
  
  %% ====================================================================
  