diff options
| author | Hans Nilsson <[email protected]> | 2019-03-15 17:44:10 +0100 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2019-03-19 12:45:56 +0100 |
| commit | 449527eb8db8b240569bbc258a3193ea448a059d (patch) | |
| tree | 7d09469ec383f3002c7fe840af659f37696a624b | |
| parent | 4ff2ec4fcbdd9678cbeba3ccc10f0b52f9d92fc2 (diff) | |
| download | otp-449527eb8db8b240569bbc258a3193ea448a059d.tar.gz otp-449527eb8db8b240569bbc258a3193ea448a059d.tar.bz2 otp-449527eb8db8b240569bbc258a3193ea448a059d.zip | |
crypto: Add FIPS testing for a couple of algorithms
in crypto_SUITE.
| -rw-r--r-- | lib/crypto/test/crypto_SUITE.erl | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index 7bbb05a50c..7dbbde68e9 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -98,8 +98,8 @@ groups() -> {group, rc4} ]}, {fips, [], [ - %% {group, no_blake2b}, - %% {group, no_blake2s}, + {group, no_blake2b}, + {group, no_blake2s}, {group, dss}, {group, ecdsa}, {group, no_ed25519}, @@ -140,7 +140,7 @@ groups() -> {group, no_des_cbc}, {group, no_des_cfb}, {group, des_ede3}, - %% {group, no_poly1305}, + {group, no_poly1305}, {group, no_rc2_cbc}, {group, no_rc4} ]}, @@ -158,6 +158,8 @@ groups() -> {sha3_512, [], [hash, hmac]}, {blake2b, [], [hash, hmac]}, {blake2s, [], [hash, hmac]}, + {no_blake2b, [], [no_hash, no_hmac]}, + {no_blake2s, [], [no_hash, no_hmac]}, {rsa, [], [sign_verify, public_encrypt, private_encrypt, @@ -203,6 +205,7 @@ groups() -> {chacha20_poly1305, [], [aead]}, {chacha20, [], [stream, api_ng, api_ng_one_shot, api_ng_tls]}, {poly1305, [], [poly1305]}, + {no_poly1305, [], [no_poly1305]}, {aes_cbc, [], [block, api_ng, api_ng_one_shot, api_ng_tls]}, {no_aes_cfb8,[], [no_support, no_block]}, {no_aes_cfb128,[], [no_support, no_block]}, @@ -425,6 +428,16 @@ poly1305(Config) -> end, proplists:get_value(poly1305, Config)). %%-------------------------------------------------------------------- +no_poly1305() -> + [{doc, "Test disabled poly1305 function"}]. +no_poly1305(Config) -> + Type = ?config(type, Config), + Key = <<133,214,190,120,87,85,109,51,127,68,82,254,66,213,6,168,1, + 3,128,138,251,13,178,253,74,191,246,175,65,73,245,27>>, + Txt = <<"Cryptographic Forum Research Group">>, + notsup(fun crypto:poly1305/2, [Key,Txt]). + +%%-------------------------------------------------------------------- block() -> [{doc, "Test block ciphers"}]. block(Config) when is_list(Config) -> |