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

fix timestamp compare

Browse source
This commit is contained in:
swrup 2026-02-27 22:44:49 +01:00
parent 2e29cb0418
commit b1de214881
6 changed files with 15 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

16
test/validate_response.ml
View file

@ -36,6 +36,12 @@ let keys content =
in
(*Fmt.pr "OK wire_fees@.";*)
let* () =
v.global_fees
|> list_iter (GlobalFees.verify_global_fees ~key:v.master_public_key)
in
(*Fmt.pr "OK global_fees@.";*)
let sk_l = List.map SignKey.to_signkey v.signkeys in
let* () =
sk_l
@ -80,13 +86,7 @@ let keys content =
if last_issue_date = v.list_issue_date then Ok ()
else Fmt.error "list_issue_date is wrong"
in
(*Fmt.pr "OK denominations@.";*)
let* () =
v.global_fees
|> list_iter (GlobalFees.verify_global_fees ~key:v.master_public_key)
in
(*Fmt.pr "OK global_fees@.";*)
Fmt.pr "OK denominations@.";
let* () =
(* TODO O(n^2) *)
@ -124,7 +124,7 @@ let keys content =
denom_hash= dn.h_pub;
})
in
(*Fmt.pr "OK auditors@.";*)
Fmt.pr "OK auditors@.";
Ok ()