File 1253-crypto-Testcase-for-experimental-crypto-in... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 1253-crypto-Testcase-for-experimental-crypto-info-0.patch of Package erlang (Revision 67b0d44b81f58108cfbcc1786210bcda)

Currently displaying revision 67b0d44b81f58108cfbcc1786210bcda , Show latest

From ab47d67b43cacd2ba6ef0435b3804db02be30109 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Mon, 6 Sep 2021 09:39:19 +0200
Subject: [PATCH 3/3] crypto: Testcase for experimental crypto:info/0

---
 lib/crypto/test/crypto_SUITE.erl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/lib/crypto/test/crypto_SUITE.erl b/lib/crypto/test/crypto_SUITE.erl
index cbb8fcd63f..c3f635ab56 100644
--- a/lib/crypto/test/crypto_SUITE.erl
+++ b/lib/crypto/test/crypto_SUITE.erl
@@ -78,6 +78,7 @@
          hash/1,
          hash_info/0,
          hash_info/1,
+         info/1,
          mod_pow/0,
          mod_pow/1,
          no_aead_ng/0,
@@ -190,6 +191,7 @@ all() ->
      rand_threads,
      rand_plugin,
      rand_plugin_s,
+     info,
      cipher_info,
      hash_info,
      hash_equals
@@ -1287,6 +1289,27 @@ rand_plugin_s() ->
 rand_plugin_s(Config) when is_list(Config) ->
     rand_plugin_aux(explicit_state).
 
+%%--------------------------------------------------------------------
+info(_Config) ->
+    [{_,_,VerBin}] = crypto:info_lib(),
+    Ver = binary:bin_to_list(VerBin),
+    try
+        crypto:info()
+    of
+        #{cryptolib_version_compiled := Ver,
+          cryptolib_version_linked := Ver,
+          compile_type := Tc,
+          link_type := Tl} when is_atom(Tc), is_atom(Tl) ->
+            ok;
+        Other ->
+            ct:log("Ver = ~p~ncrypto:info() -> ~p", [Ver,Other]),
+            ct:fail("Version missmatch", [])
+    catch
+        C:E ->
+            ct:log("Exception ~p:~p", [C,E]),
+            ct:fail("Exception when calling crypto:info/0", [])
+    end.
+
 %%--------------------------------------------------------------------
 cipher_info() ->
     [{doc, "crypto cipher_info testing"}].
-- 
2.31.1

Places

File 1253-crypto-Testcase-for-experimental-crypto-info-0.patch of Package erlang (Revision 67b0d44b81f58108cfbcc1786210bcda)

Places