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:59:03 +01:00
parent 6cb3fa092c
commit 44ea4dafe5
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/validate_response.ml
View file

@ -58,7 +58,7 @@ let keys content =
| None -> Fmt.error "exchange_pub is not in signkeys list" | None -> Fmt.error "exchange_pub is not in signkeys list"
| Some sk -> | Some sk ->
let sk = SignKey.to_signkey sk in 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 let now = Timestamp.of_ptime (Ptime_clock.now ()) in
if Signkey.is_valid_at ~timestamp:now sk then Ok () if Signkey.is_valid_at ~timestamp:now sk then Ok ()
else Fmt.error "exchange_pub is not valid at the current time" else Fmt.error "exchange_pub is not valid at the current time"
@ -73,7 +73,6 @@ let keys content =
} }
in in
(* TODO parse CS *)
let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
let* () = let* () =
let open Denomination in let open Denomination in
@ -137,7 +136,7 @@ let keys content =
in in
let* () = let* () =
(* todo O(n^2) *) (* TODO O(n^2) *)
v.auditors v.auditors
|> list_iter |> list_iter
(fun (fun