From 49fd96927c00da5968b980ee3dce54571e20064d Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Fri, 27 Feb 2026 18:30:01 +0100
Subject: [PATCH] + validate signkeys

---
 test/validate_response.ml | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/test/validate_response.ml b/test/validate_response.ml
index 13059db5..c0b68b0c 100644
--- a/test/validate_response.ml
+++ b/test/validate_response.ml
@@ -36,10 +36,25 @@ let keys content =
              })
   in
 
-  (* validate signkeys *)
+  let* () =
+    let open SignKey in
+    v.signkeys
+    |> list_iter
+         (fun { key; stamp_start; stamp_expire; stamp_end; master_sig } ->
+           let open Signatures.ExchangeSigningKeyValidity in
+           verify v.master_public_key master_sig
+             {
+               R.start= stamp_start;
+               expire= stamp_expire;
+               end_= stamp_end;
+               signkey_pub= key;
+             })
+  in
+
   (* validate exchange_pub *)
-  (* validate denominations *)
   (* validate exchange_sig *)
+
+  (* validate denominations *)
   (* validate global-fees *)
   (* validate list_issue_date *)
   (* validate auditors *)