2026-02-27 19:10:06 +01:00 · 2026-02-27 19:10:06 +01:00 · 084c9e6f4b
commit 084c9e6f4b
parent 209e4f6408
1 changed files with 30 additions and 1 deletions
--- 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 ()