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