anchor.diff:              {skip, Reason}
       end.
   
  -make_connection_check_cert(Cert, ClientNode, ClientConf, ServerNode, ServerConf,
  -                          Hostname, SCAFile) ->
  +make_connection_check_cert(ServerRootCert, ClientNode, ClientConf, ServerNode,
  +                           ServerConf, Hostname, ServerCAFile) ->
       Server =
   	ssl_test_lib:start_server([{node, ServerNode}, {port, 0},
   				   {from, self()},
  
positive.code: 	ssl_test_lib:start_client([{node, ClientNode},
                                     {port, Port}, {host, Hostname},
  				   {from, self()},
  				   {mfa, {?MODULE, check_cert, [Cert, SCAFile]}},
                                     {options, [{verify, verify_peer} | ClientConf]}]),
  
      ssl_test_lib:check_result(Client, ok),
  
negative.code:             2 = get_total_counter(),
              Disconnected1 = get_table_sizes(),
  
              case CleanMode of
                  no_cleanup ->
                      check_tables([{pem_cache, PemCacheData1}]);
                  _ ->
                      check_tables([{pem_cache, PemCacheData2}])
              end,
              check_tables([{cert, CertData1}, {ca_ref_cnt, CaRefCntData0},
                            {ca_file_ref, CaFileRefData0}]),
              [ssl_test_lib:close(A) || A <- [Client0, Server0]],
              0 = get_total_counter(),
              Disconnected2 = get_table_sizes(),
              case CleanMode of
                  no_cleanup ->
                      check_tables([{pem_cache, PemCacheData1}, {cert, []},
                                    {ca_ref_cnt, []}, {ca_file_ref, []}]);
                  _ ->
                      check_tables([{pem_cache, PemCacheData2}, {cert, []},
                                    {ca_ref_cnt, []}, {ca_file_ref, []}])
              end,
  
              ssl:clear_pem_cache(),
  