2026-02-28 03:32:55 +01:00 · 2026-02-28 03:32:55 +01:00 · c5a2562a7b
commit c5a2562a7b
parent f7cb91615d
3 changed files with 7 additions and 1 deletions
--- a/test/validate_response.ml
+++ b/test/validate_response.ml
@ -75,6 +75,11 @@ let keys content =
  let* () =
    denom_l
    |> list_iter (fun dn ->
+        let open Denomination in
+        (*let to_int64 ts = ts |> Timestamp.to_s |> Option.get in*)
+        Fmt.pr "rsa_pub: %s@." (Crypto.RsaPublicKey.to_b32 dn.pub);
+        Fmt.pr "master_sig: %s@." (B32.encode @@ Obj.magic dn.master_sig);
+        (* amount bin fraction bad? *)
        let* () =
          Denomination.verify_denomination_key_validity ~key:v.master_public_key
            dn