diff options
author | Ingela Anderton Andin <[email protected]> | 2010-11-29 15:40:48 +0100 |
---|---|---|
committer | Ingela Anderton Andin <[email protected]> | 2010-11-30 10:33:51 +0100 |
commit | 3326cab005954dc6ba6c6596f77b5882b77f6be2 (patch) | |
tree | 084e72999e75eabea8a9b24c009412adcd173931 /lib/public_key/test/public_key_SUITE.erl | |
parent | 827dc3c7e13d4ce21315f441c4400fb575f41c20 (diff) | |
download | otp-3326cab005954dc6ba6c6596f77b5882b77f6be2.tar.gz otp-3326cab005954dc6ba6c6596f77b5882b77f6be2.tar.bz2 otp-3326cab005954dc6ba6c6596f77b5882b77f6be2.zip |
Fixed guard and test case
Data to sign and verify should be inputed as binaries.
Also cleaned up and moved some dialyzer specs.
Diffstat (limited to 'lib/public_key/test/public_key_SUITE.erl')
-rw-r--r-- | lib/public_key/test/public_key_SUITE.erl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/public_key/test/public_key_SUITE.erl b/lib/public_key/test/public_key_SUITE.erl index 81e01f3a02..88cfbcf2b6 100644 --- a/lib/public_key/test/public_key_SUITE.erl +++ b/lib/public_key/test/public_key_SUITE.erl @@ -249,10 +249,8 @@ sign_verify(Config) when is_list(Config) -> true = public_key:pkix_verify(Cert2, {Y, #'Dss-Parms'{p=P, q=Q, g=G}}), %% RSA sign - Msg0 = lists:duplicate(5, "Foo bar 100"), - Msg = list_to_binary(Msg0), + Msg = list_to_binary(lists:duplicate(5, "Foo bar 100")), - RSASign = public_key:sign(Msg0, sha, PrivateRSA), RSASign = public_key:sign(Msg, sha, PrivateRSA), true = public_key:verify(Msg, sha, RSASign, PublicRSA), false = public_key:verify(<<1:8, Msg/binary>>, sha, RSASign, PublicRSA), |