2026-02-27 21:03:07 +01:00 · 2026-02-27 21:03:07 +01:00 · ec61fb70f8
commit ec61fb70f8
parent b68a25dc9e
3 changed files with 28 additions and 54 deletions
--- a/test/validate_response.ml
+++ b/test/validate_response.ml
@ -81,33 +81,7 @@ let keys content =

  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;
-             })
+    |> list_iter (GlobalFees.verify_global_fees ~key:v.master_public_key)
  in

  let* () =