diff options
author | Ingela Anderton Andin <[email protected]> | 2011-01-21 09:57:22 +0100 |
---|---|---|
committer | Ingela Anderton Andin <[email protected]> | 2011-01-21 09:57:22 +0100 |
commit | c9aae9e6874950c671c08940d4e72abc616c550e (patch) | |
tree | 01e0db63432942a98355b4f34a9e034cc747df75 /lib/ssl/test/ssl_basic_SUITE.erl | |
parent | 4c70b07402581cbcdc1204961344cb28bf383d20 (diff) | |
parent | c6238ffaa4ef8bbe0aff8fde402a3254e746d3cc (diff) | |
download | otp-c9aae9e6874950c671c08940d4e72abc616c550e.tar.gz otp-c9aae9e6874950c671c08940d4e72abc616c550e.tar.bz2 otp-c9aae9e6874950c671c08940d4e72abc616c550e.zip |
Merge branch 'ia/ssl-and-public_key/skip-test-if-no-crypto' into dev
* ia/ssl-and-public_key/skip-test-if-no-crypto:
Skip ssl and public key tests if crypto fails to start
Diffstat (limited to 'lib/ssl/test/ssl_basic_SUITE.erl')
-rw-r--r-- | lib/ssl/test/ssl_basic_SUITE.erl | 31 |
1 files changed, 17 insertions, 14 deletions
diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl index d3e846f60b..a75e9b4272 100644 --- a/lib/ssl/test/ssl_basic_SUITE.erl +++ b/lib/ssl/test/ssl_basic_SUITE.erl @@ -48,20 +48,23 @@ %%-------------------------------------------------------------------- init_per_suite(Config0) -> Dog = ssl_test_lib:timetrap(?LONG_TIMEOUT *2), - crypto:start(), - application:start(public_key), - ssl:start(), - - %% make rsa certs using oppenssl - Result = - (catch make_certs:all(?config(data_dir, Config0), - ?config(priv_dir, Config0))), - test_server:format("Make certs ~p~n", [Result]), - - Config1 = ssl_test_lib:make_dsa_cert(Config0), - Config = ssl_test_lib:cert_options(Config1), - [{watchdog, Dog} | Config]. - + case crypto:start() of + ok -> + application:start(public_key), + ssl:start(), + + %% make rsa certs using oppenssl + Result = + (catch make_certs:all(?config(data_dir, Config0), + ?config(priv_dir, Config0))), + test_server:format("Make certs ~p~n", [Result]), + + Config1 = ssl_test_lib:make_dsa_cert(Config0), + Config = ssl_test_lib:cert_options(Config1), + [{watchdog, Dog} | Config]; + _ -> + {skip, "Crypto did not start"} + end. %%-------------------------------------------------------------------- %% Function: end_per_suite(Config) -> _ %% Config - [tuple()] |