swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-28 03:32:55 +01:00
parent f7cb91615d
commit dc9aa4f2ff
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
keys.json Normal file
View file

File diff suppressed because one or more lines are too long

5
test/validate_response.ml
View file

@ -75,6 +75,11 @@ let keys content =
let* () = let* () =
denom_l denom_l
|> list_iter (fun dn -> |> 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* () = let* () =
Denomination.verify_denomination_key_validity ~key:v.master_public_key Denomination.verify_denomination_key_validity ~key:v.master_public_key
dn dn