diff --git a/test/validate_response.ml b/test/validate_response.ml index 6248acee..aebda500 100644 --- a/test/validate_response.ml +++ b/test/validate_response.ml @@ -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 ()