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