|
 |
9aea5ce |
From: Sverker Eriksson <sverker@erlang.org>
|
|
|
9aea5ce |
Date: Tue, 13 Jun 2023 19:02:32 +0200
|
|
|
9aea5ce |
Subject: [PATCH] crypto_SUITE: Remove md5, ripemd160 and sha as hash for rsa
|
|
|
9aea5ce |
sign if FIPS
|
|
|
9aea5ce |
|
|
|
9aea5ce |
|
|
|
9aea5ce |
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl
|
|
|
a0135c1 |
index 0f2d223b6b..15fd40be1d 100644
|
|
|
9aea5ce |
--- a/lib/crypto/test/crypto_SUITE.erl
|
|
|
9aea5ce |
+++ b/lib/crypto/test/crypto_SUITE.erl
|
|
|
a0135c1 |
@@ -2391,7 +2391,12 @@ rsa_sign_verify_tests(Config, Msg, Public, Private, PublicS, PrivateS, OptsToTry
|
|
|
9aea5ce |
end.
|
|
|
9aea5ce |
|
|
|
9aea5ce |
rsa_sign_verify_tests(Msg, Public, Private, PublicS, PrivateS, OptsToTry) ->
|
|
|
9aea5ce |
- gen_rsa_sign_verify_tests([md5, ripemd160, sha, sha224, sha256], Msg, Public, Private,
|
|
|
9aea5ce |
+ Hashs0 = [sha224, sha256],
|
|
|
9aea5ce |
+ Hashs = case crypto:info_fips() of
|
|
|
9aea5ce |
+ enabled -> Hashs0;
|
|
|
9aea5ce |
+ _ -> [md5, ripemd160, sha | Hashs0]
|
|
|
9aea5ce |
+ end,
|
|
|
9aea5ce |
+ gen_rsa_sign_verify_tests(Hashs, Msg, Public, Private,
|
|
|
9aea5ce |
[undefined | OptsToTry]) ++
|
|
|
9aea5ce |
gen_rsa_sign_verify_tests([sha384, sha512], Msg, PublicS, PrivateS,
|
|
|
9aea5ce |
[undefined | OptsToTry]).
|