anchor.diff:      string:join(Parts, "\r\n").
   
   
  +get_dn_from_cert(Config) ->
  +    [CCM | _] = ?config(nodes, Config),
  +    Cert = ?config(cert, Config),
  +
  +    {Ans2, PemBin} = file:read_file(Cert),
  +    ?assertEqual(ok, Ans2),
  +
  +    {Ans3, RDNSequence} = rpc:call(CCM, user_logic, extract_dn_from_cert, [PemBin]),
  +    ?assertEqual(rdnSequence, Ans3),
  +
  +    {Ans4, DN} = rpc:call(CCM, user_logic, rdn_sequence_to_dn_string, [RDNSequence]),
  +    ?assertEqual(ok, Ans4),
  +    DN.
  +
  +
   % Populates the database with one user and some files
   setup_user_in_db(Config) ->
       [CCM | _] = ?config(nodes, Config),
  
positive.code:     RemoveStorageAns = rpc:call(CCM, dao_lib, apply, [dao_vfs, remove_storage, [{uuid, StorageUUID}], ?ProtocolVersion]),
      ?assertEqual(ok, RemoveStorageAns),
  
      ?assertEqual(ok, rpc:call(CCM, dao_lib, apply, [dao_vfs, remove_file, ["groups/" ++ ?TEST_GROUP], ?ProtocolVersion])),
      ?assertEqual(ok, rpc:call(CCM, dao_lib, apply, [dao_vfs, remove_file, ["groups"], ?ProtocolVersion])),
  
      rpc:call(CCM, user_logic, remove_user, [{dn, DN}]).
  
  
negative.code:             {ca_dir, './cacerts/'}
          ]]),
  
      lists:append([{nodes, Nodes}, {cert, ?COMMON_FILE("peer.pem")}], Config).
  
  
  end_per_testcase(main_test, Config) ->
  