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-28 02:30:58 +01:00
parent da29f5bae3
commit 3079981ddc
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/validate_response.ml
View file

@ -72,6 +72,7 @@ let keys content =
(*Fmt.pr "OK exchange_pub@.";*) (*Fmt.pr "OK exchange_pub@.";*)
let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
(*
let* () = let* () =
denom_l denom_l
|> list_iter (fun dn -> |> list_iter (fun dn ->
@ -82,6 +83,8 @@ let keys content =
Fmt.pr "validated a denom@."; Fmt.pr "validated a denom@.";
Ok ()) Ok ())
in in
*)
(*
let* () = let* () =
let last_issue_date = let last_issue_date =
denom_l denom_l
@ -91,6 +94,7 @@ let keys content =
if last_issue_date = v.list_issue_date then Ok () 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
*)
Fmt.pr "OK denominations@."; Fmt.pr "OK denominations@.";
let* () = let* () =