swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Browse source
This commit is contained in:
swrup 2026-02-27 19:08:33 +01:00
parent eebeed5888
commit 1f1f83c288
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/validate_response.ml
View file

@ -126,7 +126,14 @@ let keys content =
})) }))
in in
let* () = let* () =
if !last_issue_date = v.list_issue_date then Ok () let last_issue_date =
v.denominations
|> List.concat_map (fun (DenomGroup.Rsa rsa_denom_group) ->
rsa_denom_group.denoms)
|> List.map (fun rsa_denom -> rsa_denom.RsaDenom.stamp_start)
|> List.fold_left Timestamp.max Timestamp.zero
in
if last_issue_date = v.list_issue_date then Ok ()
else Fmt.error "list_issue_date is wrong" else Fmt.error "list_issue_date is wrong"
in in