diff options
author | Hans Nilsson <hans@erlang.org> | 2020-05-12 14:59:23 +0200 |
---|---|---|
committer | Hans Nilsson <hans@erlang.org> | 2020-05-19 10:40:36 +0200 |
commit | f1c12926145fd0b0b31d02da7cc5fe9d741ed974 (patch) | |
tree | 9a2d96d1067132f92cf5fcfe0bfa9a4f77f69eaf | |
parent | fc26658ea277e893fe14587aedcb87986fa8091a (diff) | |
download | erlang-f1c12926145fd0b0b31d02da7cc5fe9d741ed974.tar.gz |
crypto/test: Better logging
-rw-r--r-- | lib/crypto/test/crypto_SUITE.erl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl index d1e66afaa0..617ca9b760 100644 --- a/lib/crypto/test/crypto_SUITE.erl +++ b/lib/crypto/test/crypto_SUITE.erl @@ -678,17 +678,16 @@ api_ng_tls(Config) when is_list(Config) -> lists:foreach(fun do_api_ng_tls/1, Ciphers). -do_api_ng_tls({Type, Key, PlainTexts}=_X) -> - ct:log("~p",[_X]), +do_api_ng_tls({Type, Key, PlainTexts}) -> do_api_ng_tls({Type, Key, <<>>, PlainTexts}); -do_api_ng_tls({Type, Key, IV, PlainTexts}=_X) -> - ct:log("~p",[_X]), +do_api_ng_tls({Type, Key, IV, PlainTexts}) -> do_api_ng_tls({Type, Key, IV, PlainTexts, undefined}); -do_api_ng_tls({Type, Key, IV, PlainText0, ExpectedEncText}=_X) -> - ct:log("~p",[_X]), +do_api_ng_tls({Type, Key, IV, PlainText0, ExpectedEncText}) -> PlainText = iolist_to_binary(lazy_eval(PlainText0)), + ct:log("Type = ~p~nKey = ~p~nIV = ~p~nPlainText = ~p~nExpectedEncText = ~p", + [Type, Key, IV, PlainText, ExpectedEncText]), Renc = crypto:crypto_dyn_iv_init(Type, Key, true), Rdec = crypto:crypto_dyn_iv_init(Type, Key, false), EncTxt = crypto:crypto_dyn_iv_update(Renc, PlainText, IV), |