diff options
| author | Hans Nilsson <[email protected]> | 2017-07-05 16:48:11 +0200 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2017-07-07 11:45:02 +0200 |
| commit | f66e2fc4a37c23f147173cf3229bd24e335306e8 (patch) | |
| tree | 528ed51ea39d30158986cf600741c1f5b1df2ae4 /lib | |
| parent | b6afef4b4d1bc5705ba1c838e3f546c454de47c8 (diff) | |
| download | otp-f66e2fc4a37c23f147173cf3229bd24e335306e8.tar.gz otp-f66e2fc4a37c23f147173cf3229bd24e335306e8.tar.bz2 otp-f66e2fc4a37c23f147173cf3229bd24e335306e8.zip | |
crypto: test suites report openssl version, supports etc
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/crypto/test/blowfish_SUITE.erl | 5 | ||||
| -rw-r--r-- | lib/crypto/test/crypto_SUITE.erl | 6 |
2 files changed, 11 insertions, 0 deletions
diff --git a/lib/crypto/test/blowfish_SUITE.erl b/lib/crypto/test/blowfish_SUITE.erl index c2d0d2621b..c9033ac4f8 100644 --- a/lib/crypto/test/blowfish_SUITE.erl +++ b/lib/crypto/test/blowfish_SUITE.erl @@ -47,6 +47,11 @@ init_per_suite(Config) -> case catch crypto:start() of ok -> + catch ct:comment("~s",[element(3,hd(crypto:info_lib()))]), + catch ct:log("crypto:info_lib() -> ~p~n" + "crypto:supports() -> ~p~n" + "crypto:version() -> ~p~n" + ,[crypto:info_lib(), crypto:supports(), crypto:version()]), Config; _Else -> {skip,"Could not start crypto!"} diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index 164f43dcb0..dbfe295900 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -177,6 +177,12 @@ init_per_suite(Config) -> try crypto:start() of ok -> + catch ct:comment("~s",[element(3,hd(crypto:info_lib()))]), + catch ct:log("crypto:info_lib() -> ~p~n" + "crypto:supports() -> ~p~n" + "crypto:version() -> ~p~n" + ,[crypto:info_lib(), crypto:supports(), crypto:version()]), + try crypto:strong_rand_bytes(1) of _ -> Config |