diff options
| author | Sverker Eriksson <[email protected]> | 2012-10-02 17:06:15 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2012-12-04 18:14:51 +0100 |
| commit | 2138eb4db5b879344703e48f2e2e7d692b904ca2 (patch) | |
| tree | 13f62af2e4a62a765dea30c0dc7769170340e74d /lib/crypto/test | |
| parent | 5c4c67e4a43152bf327233db3a8ced8c5a7cbc78 (diff) | |
| download | otp-2138eb4db5b879344703e48f2e2e7d692b904ca2.tar.gz otp-2138eb4db5b879344703e48f2e2e7d692b904ca2.tar.bz2 otp-2138eb4db5b879344703e48f2e2e7d692b904ca2.zip | |
crypto: Make crypto:info() up to date
Also added test code to check the consistency of crypto:info().
Diffstat (limited to 'lib/crypto/test')
| -rw-r--r-- | lib/crypto/test/crypto_SUITE.erl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index cf1e2c80ff..de92fc80c7 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -194,7 +194,16 @@ info(Config) when is_list(Config) -> {skip,"Missing crypto application"}; {_,_} -> ?line crypto:start(), - ?line crypto:info(), + ?line Info = crypto:info(), + ?line Exports = lists:usort([F || {F,_} <- crypto:module_info(exports)]), + ?line [] = Info -- Exports, + ?line NotInInfo = Exports -- Info, + io:format("NotInInfo = ~p\n", [NotInInfo]), + BlackList = lists:sort([des_ede3_cbc_decrypt, des_ede3_cbc_encrypt, + dh_check, dh_generate_parameters, + module_info, start, stop, version]), + ?line BlackList = NotInInfo, + ?line InfoLib = crypto:info_lib(), ?line [_|_] = InfoLib, F = fun([{Name,VerN,VerS}|T],Me) -> |