From 2b1767d29f7bd9d5d611b28624d9dd8bdbc620ce Mon Sep 17 00:00:00 2001 From: Magnus Henoch Date: Wed, 27 Apr 2016 17:14:13 +0100 Subject: Fix db handle for TLS distribution crl_cache opts 'internal' is reserved for the ssl_crl_cache module. Since the stub CRL cache implementation in the test module essentially uses the file system as its "database", let's pass the directory as database handle. --- lib/ssl/test/ssl_dist_SUITE.erl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib') diff --git a/lib/ssl/test/ssl_dist_SUITE.erl b/lib/ssl/test/ssl_dist_SUITE.erl index 43771eea8e..fa36b424ce 100644 --- a/lib/ssl/test/ssl_dist_SUITE.erl +++ b/lib/ssl/test/ssl_dist_SUITE.erl @@ -581,7 +581,7 @@ crl_cache_check_pass(Config) when is_list(Config) -> NodeDir = filename:join([PrivDir, "Certs"]), DistOpts = "-ssl_dist_opt " "client_crl_check true " - "client_crl_cache {ssl_dist_SUITE,{internal,\\\"" ++ NodeDir ++ "\\\"}}", + "client_crl_cache {ssl_dist_SUITE,{\\\"" ++ NodeDir ++ "\\\",[]}}", NewConfig = [{many_verify_opts, true}, {additional_dist_opts, DistOpts}] ++ Config, @@ -607,7 +607,7 @@ crl_cache_check_fail(Config) when is_list(Config) -> NodeDir = filename:join([PrivDir, "Certs"]), DistOpts = "-ssl_dist_opt " "client_crl_check true " - "client_crl_cache {ssl_dist_SUITE,{internal,\\\"" ++ NodeDir ++ "\\\"}}", + "client_crl_cache {ssl_dist_SUITE,{\\\"" ++ NodeDir ++ "\\\",[]}}", NewConfig = [{many_verify_opts, true}, %% The server uses a revoked certificate. @@ -631,7 +631,7 @@ crl_cache_check_fail(Config) when is_list(Config) -> lookup(_DistributionPoint, _DbHandle) -> not_available. -select({rdnSequence, NameParts}, {_, NodeDir}) -> +select({rdnSequence, NameParts}, {NodeDir, _}) -> %% Extract the CN from the issuer name... [CN] = [CN || [#'AttributeTypeAndValue'{ -- cgit v1.2.3