From 084c9e6f4b1bfb893848cb998c75d8a275c1ae4e Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 27 Feb 2026 19:10:06 +0100 Subject: [PATCH] --- test/validate_response.ml | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) diff --git a/test/validate_response.ml b/test/validate_response.ml index 6b65e01e..78b484a9 100644 --- a/test/validate_response.ml +++ b/test/validate_response.ml @@ -138,8 +138,37 @@ let keys content = in (* validate global-fees *) + let* () = + v.global_fees + |> list_iter + (fun + GlobalFees. + { + start_date; + end_date; + history_fee; + account_fee; + purse_fee; + history_expiration; + purse_account_limit; + purse_timeout; + master_sig; + } + -> + let open Signatures.GlobalFees in + verify v.master_public_key master_sig + { + start_date; + end_date; + purse_timeout; + history_expiration; + history_fee; + account_fee; + purse_fee; + purse_account_limit; + }) + in - (* validate list_issue_date *) (* validate auditors *) Ok ()