aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMagnus Henoch <[email protected]>2016-04-27 17:14:13 +0100
committerMagnus Henoch <[email protected]>2016-04-27 17:14:13 +0100
commit2b1767d29f7bd9d5d611b28624d9dd8bdbc620ce (patch)
tree73d572943e4753b4ad8b741b71b147674b669f3c
parent4db8640612bed0b104c4d66c7acf3ad4d95fc3b0 (diff)
downloadotp-2b1767d29f7bd9d5d611b28624d9dd8bdbc620ce.tar.gz
otp-2b1767d29f7bd9d5d611b28624d9dd8bdbc620ce.tar.bz2
otp-2b1767d29f7bd9d5d611b28624d9dd8bdbc620ce.zip
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.
-rw-r--r--lib/ssl/test/ssl_dist_SUITE.erl6
1 files changed, 3 insertions, 3 deletions
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'{