anchor.diff:  	false ->
   	    Name
       end.
  +
  +new_ca(FileName, CA1, CA2) ->
  +    {ok, P1} = file:read_file(CA1),
  +    E1 = public_key:pem_decode(P1),
  +    {ok, P2} = file:read_file(CA2),
  +    E2 = public_key:pem_decode(P2),
  +    Pem = public_key:pem_encode(E1 ++E2),
  +    file:write_file(FileName,  Pem),
  +    FileName.
  
positive.code: crl_hash_dir_expired() ->
      [{doc,"Verify ssl_crl_hash_dir behaviour with expired CRLs"}].
  crl_hash_dir_expired(Config) when is_list(Config) ->
      PrivDir = ?config(cert_dir, Config),
      Check = ?config(crl_check, Config),
  
      CA = "CRL-maybe-expired-CA",
      %% Add "issuing distribution point", to ensure that verification
  
negative.code: crl_hash_dir_collision() ->
      [{doc,"Verify ssl_crl_hash_dir behaviour with hash collisions"}].
  crl_hash_dir_collision(Config) when is_list(Config) ->
      PrivDir = proplists:get_value(cert_dir, Config),
      Check = proplists:get_value(crl_check, Config),
  
      %% Create two CAs whose names hash to the same value
      CA1 = "hash-collision-0000000000",
  