test/test_crypto.ml

@@ -108,3 +108,16 @@ let () =
   assert (encode bmsg = blinded_message);
 
   ()
+
+let () = Mirage_crypto_rng_unix.use_default ()
+
+let () =
+  let open Crypto in
+  let priv, pub = RsaPrivateKey.generate ~bits:2048 () in
+  let bks = "deadbeaf" in
+  let msg = "uhuh." in
+  let sig_ = Fdh_rsa.sign ~priv ~pub ~bks ~msg in
+  let res = Fdh_rsa.verify pub ~msg ~sig_ in
+  assert (Result.is_ok res);
+
+  ()