From 44ea4dafe5607233a40e4444515223ce502be207 Mon Sep 17 00:00:00 2001 From: swrup Date: Fri, 27 Feb 2026 19:59:03 +0100 Subject: [PATCH] --- test/validate_response.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/test/validate_response.ml b/test/validate_response.ml index ed3f12c2..c1b7795c 100644 --- a/test/validate_response.ml +++ b/test/validate_response.ml @@ -58,7 +58,7 @@ let keys content = | None -> Fmt.error "exchange_pub is not in signkeys list" | Some sk -> let sk = SignKey.to_signkey sk in - (* todo will need to fake time to validate expired data *) + (* TODO will need to fake time to validate expired data *) let now = Timestamp.of_ptime (Ptime_clock.now ()) in if Signkey.is_valid_at ~timestamp:now sk then Ok () else Fmt.error "exchange_pub is not valid at the current time" @@ -73,7 +73,6 @@ let keys content = } in - (* TODO parse CS *) let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in let* () = let open Denomination in @@ -137,7 +136,7 @@ let keys content = in let* () = - (* todo O(n^2) *) + (* TODO O(n^2) *) v.auditors |> list_iter (fun