From 59dc519a7bf80345ce973233aa31722685bd7b23 Mon Sep 17 00:00:00 2001
From: swrup <swrup@protonmail.com>
Date: Fri, 27 Feb 2026 18:59:38 +0100
Subject: [PATCH]

---
 test/validate_response.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/test/validate_response.ml b/test/validate_response.ml
index 28997a68..e2c724c5 100644
--- a/test/validate_response.ml
+++ b/test/validate_response.ml
@@ -73,6 +73,7 @@ let keys content =
         }
   in
 
+  let last_issue_date = ref Timestamp.zero in
   let* () =
     (* TODO parse CS *)
     v.denominations
@@ -103,6 +104,7 @@ let keys content =
                     lost= _;
                   }
                 ->
+                  last_issue_date := Timestamp.max !last_issue_date stamp_start;
                   let denom_hash =
                     DenominationHash.hash
                       (Crypto.RsaPublicKey.to_octets rsa_pub)
@@ -123,8 +125,15 @@ let keys content =
                       denom_hash;
                     }))
   in
+  let* () =
+    if !last_issue_date = v.list_issue_date then Ok ()
+    else Fmt.error "list_issue_date is wrong"
+  in
 
   (* validate global-fees *)
+
+
+
   (* validate list_issue_date *)
   (* validate auditors *)
   Ok ()