anchor.diff:    CheckDispatcherAns(DispatcherCorrectAns3, CCMTest3),
     lists:foldl(CheckCallbacks, DispatcherCorrectAns3, lists:zip(NodesUp, FuseInfo3)),
   
  -  rpc:call(Worker1, user_logic, remove_user, [{dn, DN}]).
  +  rpc:call(Worker1, user_logic, remove_user, [{dn, DN}], 2000).
   
   %% ====================================================================
   %% SetUp and TearDown functions
  
positive.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]),
    ?assertEqual(rdnSequence, ExtractAns),
    {ConvertAns, DN} = rpc:call(Worker1, user_logic, rdn_sequence_to_dn_string, [RDNSequence]),
    ?assertEqual(ok, ConvertAns),
    DnList = [DN],
  
  
negative.code:   Name = "user1 user1",
    Teams = ["user1 team"],
    Email = "user1@email.net",
    {CreateUserAns, _} = rpc:call(Worker1, user_logic, create_user, [Login, Name, Teams, Email, DnList], 2000),
    ?assertEqual(ok, CreateUserAns),
    %% END Add user
  
  