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-27 22:50:47 +01:00
parent cae149e3a3
commit 45ea6fc1d3
1 changed files with 8 additions and 8 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 in
(*Fmt.pr "OK wire_fees@.";*) (*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 = List.map SignKey.to_signkey v.signkeys in
let* () = let* () =
sk_l sk_l
@ -80,13 +86,7 @@ let keys content =
if last_issue_date = v.list_issue_date then Ok () if last_issue_date = v.list_issue_date then Ok ()
else Fmt.error "list_issue_date is wrong" else Fmt.error "list_issue_date is wrong"
in in
(*Fmt.pr "OK denominations@.";*) 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@.";*)
let* () = let* () =
(* TODO O(n^2) *) (* TODO O(n^2) *)
@ -124,7 +124,7 @@ let keys content =
denom_hash= dn.h_pub; denom_hash= dn.h_pub;
}) })
in in
(*Fmt.pr "OK auditors@.";*) Fmt.pr "OK auditors@.";
Ok () Ok ()