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

add last_change timestamp to secmod_rsa

Browse source
This commit is contained in:
swrup 2026-03-03 01:36:12 +01:00
parent 0526675e52
commit 6fb33ee8f2
6 changed files with 30 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

23
test/validate_response.ml
View file

@ -74,27 +74,8 @@ let keys content =
let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
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
in
Fmt.pr "validated a denom@.";
Ok ())
in
let* () =
let last_issue_date =
denom_l
|> List.map (fun dn -> dn.Denomination.stamp_start)
|> List.fold_left Timestamp.max Timestamp.zero
in
if last_issue_date = v.list_issue_date then Ok ()
else Fmt.error "list_issue_date is wrong"
|> list_iter
(Denomination.verify_denomination_key_validity ~key:v.master_public_key)
in
Fmt.pr "OK denominations@.";