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

~ todos

Browse source
This commit is contained in:
swrup 2026-03-03 10:31:57 +01:00
parent 650264f21e
commit 0ab6bc7b3e
11 changed files with 15 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/validate_response.ml
View file

@ -12,8 +12,8 @@ let keys content =
else Fmt.error "version incompatible"
in
(* TODO validate ExchangeWireAccount
need hash over json *)
(* TODO json hash
validate wire *)
let* () =
let open AggregateTransferFee in
v.wire_fees
@ -52,7 +52,7 @@ let keys content =
match opt with
| None -> Fmt.error "exchange_pub is not in signkeys list"
| Some _sk ->
(* TODO add a --now option?
(* todo add a --now option if we want to validate timestamps
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"