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:             {ca_dir, './cacerts/'}
          ]]),
  
      lists:append([{nodes, Nodes}], Config).
  
  
  end_per_testcase(main_test, Config) ->
  
negative.code:     {Ans1, StorageUUID} = rpc:call(CCM, fslogic_storage, insert_storage, [?SH, ?ARG_TEST_ROOT]),
      ?assertEqual(ok, Ans1),
  
      Cert = ?config(cert, Config),
      UserDoc = test_utils:add_user(Config, ?TEST_USER, Cert, [?TEST_USER, ?TEST_GROUP]),
      [DN | _] = user_logic:get_dn_list(UserDoc),
  
      fslogic_context:set_user_dn(DN),
      Ans6 = rpc:call(CCM, erlang, apply, [
  