aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssl/test/ssl_to_openssl_SUITE.erl
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2011-10-31 15:04:41 +0100
committerIngela Anderton Andin <[email protected]>2011-11-15 12:09:37 +0100
commitccc6bbb5004f0d23b988b51c79995a618b80b494 (patch)
tree3a590bdb2b589c8574a084fef18bf4fd314d002c /lib/ssl/test/ssl_to_openssl_SUITE.erl
parent1b30349552b72604ac71120aff24e054aceeded7 (diff)
downloadotp-ccc6bbb5004f0d23b988b51c79995a618b80b494.tar.gz
otp-ccc6bbb5004f0d23b988b51c79995a618b80b494.tar.bz2
otp-ccc6bbb5004f0d23b988b51c79995a618b80b494.zip
Work around bug in openss-1.0.0e
Diffstat (limited to 'lib/ssl/test/ssl_to_openssl_SUITE.erl')
-rw-r--r--lib/ssl/test/ssl_to_openssl_SUITE.erl8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/ssl/test/ssl_to_openssl_SUITE.erl b/lib/ssl/test/ssl_to_openssl_SUITE.erl
index 0fd2ea1ffb..f37baeb9de 100644
--- a/lib/ssl/test/ssl_to_openssl_SUITE.erl
+++ b/lib/ssl/test/ssl_to_openssl_SUITE.erl
@@ -1134,7 +1134,7 @@ cipher(CipherSuite, Version, Config, ClientOpts, ServerOpts) ->
CertFile = proplists:get_value(certfile, ServerOpts),
KeyFile = proplists:get_value(keyfile, ServerOpts),
- Cmd = "openssl s_server -accept " ++ integer_to_list(Port) ++
+ Cmd = "openssl s_server -accept " ++ integer_to_list(Port) ++ version_flag(Version) ++
" -cert " ++ CertFile ++ " -key " ++ KeyFile ++ "",
test_server:format("openssl cmd: ~p~n", [Cmd]),
@@ -1182,6 +1182,12 @@ cipher(CipherSuite, Version, Config, ClientOpts, ServerOpts) ->
process_flag(trap_exit, false),
Return.
+
+version_flag(tlsv1) ->
+ " -tls1 ";
+version_flag(sslv3) ->
+ " -ssl3 ".
+
%%--------------------------------------------------------------------
erlang_client_bad_openssl_server(doc) ->
[""];