aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssl/test
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 /lib/ssl/test
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.
Diffstat (limited to 'lib/ssl/test')
-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'{