anchor.diff:  					{from, self()},
   					{mfa, {ssl_test_lib, send_recv_result_active, []}},
   					{options, ClientOpts}]),
  -
       ssl_test_lib:check_result(Server, ok, Client, ok),
       {Server, Client}.
   
  +replace_cacertfile(Config, CACertFile) ->
  +    ClientOpts0 = ssl_test_lib:ssl_options(client_rsa_opts, Config),
  +    ClientOpts = [{cacertfile, CACertFile} | proplists:delete(cacertfile, ClientOpts0)],
  +    [{client_rsa_opts, ClientOpts} | proplists:delete(client_rsa_opts, Config)].
   
   check_cert(Socket, RootCert, File) ->
       {ok, Cert} = ssl:peercert(Socket),
       {ok, Extracted} = ssl_pkix_db:extract_trusted_certs(File),
  -    {ok, RootCert, _} = ssl_certificate:certificate_chain(Cert, ets:new(foo, []), Extracted, [], encoded),
  +    {ok, RootCert, _} = ssl_certificate:certificate_chain(Cert, ets:new(foo, []),
  +                                                          Extracted, [], encoded),
       ok.
   
  +strip_path(AbsPath) ->
  +    {ok, lists:last(filename:split(AbsPath))}.
  +
  +make_hardlink(AbsPath) ->
  +    LinkPath = AbsPath ++ "_hardlink",
  +    case file:make_link(AbsPath, LinkPath) of
  +        ok ->
  +            {ok, LinkPath};
  +        Reason ->
  +            {skip, Reason}
  +    end.
  +
  +make_symlink(AbsPath) ->
  +    LinkPath = AbsPath ++ "_symlink",
  +    case file:make_symlink(AbsPath, LinkPath) of
  +        ok ->
  +            {ok, LinkPath};
  +        Reason ->
  +            {skip, Reason}
  +    end.
  
positive.code: end_per_group(_GroupName, Config) ->
      Config.
  
  init_per_testcase(pem_cleanup = Case, Config) ->
      application:load(ssl),
      end_per_testcase(Case, Config) ,
      application:set_env(ssl, ssl_pem_cache_clean, ?CLEANUP_INTERVAL),
      ssl:start(),
      ct:timetrap({minutes, 1}),
      Config;
  init_per_testcase(_, Config) ->
      ssl_test_lib:clean_start(),
      ct:timetrap({seconds, 10}),
      Config.
  
  end_per_testcase(_TestCase, Config) ->
      ssl_test_lib:clean_env(),
  
negative.code:          end_per_testcase/2]).
  
  %% Testcases
  -export([pem_certfile_keyfile_periodical_cleanup/0,
           pem_certfile_keyfile_periodical_cleanup/1,
           pem_cacertfile_periodical_cleanup/0,
           pem_cacertfile_periodical_cleanup/1,
           pem_manual_cleanup/0,
           pem_manual_cleanup/1,
           invalid_insert/0,
           invalid_insert/1,
           new_root_pem_manual_cleanup/0,
           new_root_pem_manual_cleanup/1,
           new_root_pem_periodical_cleanup/0,
           new_root_pem_periodical_cleanup/1,
           new_root_pem_no_cleanup/0,
           new_root_pem_no_cleanup/1,
           new_root_pem_no_cleanup_symlink/0,
           new_root_pem_no_cleanup_symlink/1,
           new_root_pem_no_cleanup_hardlink/0,
           new_root_pem_no_cleanup_hardlink/1,
           alternative_path_hardlink/0,
           alternative_path_hardlink/1,
           alternative_path_symlink/0,
           alternative_path_symlink/1,
           alternative_path_noabspath/0,
           alternative_path_noabspath/1,
           check_cert/3
          ]).
  
  
  -define(CLEANUP_INTERVAL, 5000).
  -define(SLEEP_AMOUNT, 1000).
  
  %%--------------------------------------------------------------------
  %% Common Test interface functions -----------------------------------
  %%--------------------------------------------------------------------
  all() ->
      [pem_certfile_keyfile_periodical_cleanup,
       pem_cacertfile_periodical_cleanup,
       pem_manual_cleanup,
       invalid_insert,
       new_root_pem_manual_cleanup,
       new_root_pem_periodical_cleanup,
       new_root_pem_no_cleanup,
       new_root_pem_no_cleanup_symlink,
       new_root_pem_no_cleanup_hardlink,
       alternative_path_noabspath,
       alternative_path_hardlink,
       alternative_path_symlink].
  
  groups() -> [].
  
  init_per_suite(Config0) ->
      catch crypto:stop(),
      try crypto:start() of
  	ok ->
  	    ssl_test_lib:clean_start(),
  	    %% make rsa certs
              ssl_test_lib:make_rsa_cert(Config0)
      catch _:_ ->
  	    {skip, "Crypto did not start"}
  