aboutsummaryrefslogtreecommitdiffstats
path: root/lib/crypto/test/crypto_SUITE.erl
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2012-10-02 17:06:15 +0200
committerSverker Eriksson <[email protected]>2012-12-04 18:14:51 +0100
commit2138eb4db5b879344703e48f2e2e7d692b904ca2 (patch)
tree13f62af2e4a62a765dea30c0dc7769170340e74d /lib/crypto/test/crypto_SUITE.erl
parent5c4c67e4a43152bf327233db3a8ced8c5a7cbc78 (diff)
downloadotp-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/crypto_SUITE.erl')
-rw-r--r--lib/crypto/test/crypto_SUITE.erl11
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) ->