anchor.diff:  -include_lib("common_test/include/ct.hrl").
   -include_lib("kernel/include/file.hrl").
   -include_lib("public_key/include/public_key.hrl").
  +-include("ssl_test_lib.hrl").
   
   %% Callback functions
   -export([all/0,
  
positive.code:         Reason ->
              {skip, Reason}
      end.
  
negative.code:             end,
              Cleaned = get_table_sizes(),
  
              [{pem_cache, PemCacheData1}, {cert, CertData1},
               {ca_ref_cnt, CaRefCntData1}, {ca_file_ref, _}] = get_tables(),
              case CleanMode of
                  no_cleanup ->
                      check_tables([{pem_cache, PemCacheData0},
                                    {cert, CertData0},
                                    {ca_ref_cnt, CaRefCntData0},
                                    {ca_file_ref, CaFileRefData0}]),
                      {Client1, Server1} =
                          make_connection_check_cert(ServerRootCert0, ClientNode, ClientConf,
                                                     ServerNode, ServerConf, Hostname, ServerCAFile0);
                  _ ->
                      check_tables([{pem_cache, []},
                                    {ca_ref_cnt, CaRefCntData0},
                                    {ca_file_ref, CaFileRefData0}]),
                      false = (CertData1 == CertData0),
                      {Client1, Server1} =
                          make_connection_check_cert(ServerRootCert, ClientNode, ClientConf,
                                                     ServerNode, ServerConf, Hostname, ServerCAFile)
              end,
  
              4 = get_total_counter(),
              Connected2 = get_table_sizes(),
              [{pem_cache, PemCacheData2}, {cert, CertData2},
               {ca_ref_cnt, CaRefCntData2}, {ca_file_ref, _}] = get_tables(),
              case CleanMode of
                  no_cleanup ->
                      check_tables([{pem_cache, PemCacheData0},
                                    {cert, CertData0}]);
                  _ ->
                      check_tables([{ca_file_ref, CaFileRefData0}]),
                      false = (CertData0 == CertData2),
                      false = (PemCacheData0 == PemCacheData2)
              end,
              true = (CaRefCntData2 /= CaRefCntData1),
  
  