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 ()