anchor.diff:    Name = "user1 user1",
     Teams = ["user1 team"],
     Email = "user1@email.net",
  -  {CreateUserAns, _} = rpc:call(Worker1, user_logic, create_user, [Login, Name, Teams, Email, DnList]),
  +  {CreateUserAns, _} = rpc:call(Worker1, user_logic, create_user, [Login, Name, Teams, Email, DnList], 2000),
     ?assertEqual(ok, CreateUserAns),
     %% END Add user
   
  
positive.code: 
    [CCM | WorkerNodes] = NodesUp,
  
    ?assertEqual(ok, rpc:call(CCM, ?MODULE, ccm_code1, [])),
    nodes_manager:wait_for_cluster_cast(),
    RunWorkerCode = fun(Node) ->
      ?assertEqual(ok, rpc:call(Node, ?MODULE, worker_code, [])),
      nodes_manager:wait_for_cluster_cast({?Node_Manager_Name, Node})
    end,
    lists:foreach(RunWorkerCode, WorkerNodes),
    ?assertEqual(ok, rpc:call(CCM, ?MODULE, ccm_code2, [])),
    nodes_manager:wait_for_cluster_init(),
  
    [Worker1 | _] = WorkerNodes,
  
negative.code:   %% Add test users since cluster wont generate FuseId without full authentication
    {ReadFileAns, PemBin} = file:read_file(PeerCert),
    ?assertEqual(ok, ReadFileAns),
    {ExtractAns, RDNSequence} = rpc:call(Worker1, user_logic, extract_dn_from_cert, [PemBin], 2000),
    ?assertEqual(rdnSequence, ExtractAns),
    {ConvertAns, DN} = rpc:call(Worker1, user_logic, rdn_sequence_to_dn_string, [RDNSequence], 2000),
    ?assertEqual(ok, ConvertAns),
    DnList = [DN],
  
  