aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHans Nilsson <[email protected]>2017-09-28 19:20:49 +0200
committerHans Nilsson <[email protected]>2017-10-04 10:48:59 +0200
commit6a65091780893820220c55f1beae8ffa234c2fc5 (patch)
treef55d035c15507615260ce066466cf720fcea2469
parent4c448b6931c80c3e08232f01b15e3215216ff386 (diff)
downloadotp-6a65091780893820220c55f1beae8ffa234c2fc5.tar.gz
otp-6a65091780893820220c55f1beae8ffa234c2fc5.tar.bz2
otp-6a65091780893820220c55f1beae8ffa234c2fc5.zip
crypto: disable tests of non-working assymetric ciphers
ECDSA and DSA (DSS) public/private encryption/decryption does not work
-rw-r--r--lib/crypto/test/crypto_SUITE.erl15
1 files changed, 4 insertions, 11 deletions
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl
index 5d80ad64ab..69f02d3da6 100644
--- a/lib/crypto/test/crypto_SUITE.erl
+++ b/lib/crypto/test/crypto_SUITE.erl
@@ -125,13 +125,11 @@ groups() ->
private_encrypt,
generate
]},
- {dss, [], [sign_verify,
- public_encrypt,
- private_encrypt
+ {dss, [], [sign_verify
+ %% Does not work yet: ,public_encrypt, private_encrypt
]},
- {ecdsa, [], [sign_verify,
- public_encrypt,
- private_encrypt
+ {ecdsa, [], [sign_verify
+ %% Does not work yet: ,public_encrypt, private_encrypt
]},
{dh, [], [generate_compute]},
{ecdh, [], [compute, generate]},
@@ -820,9 +818,7 @@ negative_verify(Type, Hash, Msg, Signature, Public, Options) ->
end.
do_public_encrypt({Type, Public, Private, Msg, Padding}) ->
- ct:pal("public_encrypt",[]),
PublicEcn = (catch crypto:public_encrypt(Type, Msg, Public, Padding)),
- ct:pal("private_decrypt of ~p",[PublicEcn]),
case crypto:private_decrypt(Type, PublicEcn, Private, Padding) of
Msg ->
ok;
@@ -831,12 +827,9 @@ do_public_encrypt({Type, Public, Private, Msg, Padding}) ->
end.
do_private_encrypt({_Type, _Public, _Private, _Msg, rsa_pkcs1_oaep_padding}) ->
- ct:pal("do_private_encrypt: ~p not supported by openssl(?)",[rsa_pkcs1_oaep_padding]),
ok; %% Not supported by openssl
do_private_encrypt({Type, Public, Private, Msg, Padding}) ->
- ct:pal("private_encrypt",[]),
PrivEcn = (catch crypto:private_encrypt(Type, Msg, Private, Padding)),
- ct:pal("public_decrypt of ~p",[PrivEcn]),
case crypto:public_decrypt(Type, PrivEcn, Public, Padding) of
Msg ->
ok;