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

add test/validate_response.ml

Browse source
This commit is contained in:
swrup 2026-02-27 17:49:54 +01:00
parent 4784f32df5
commit 77b49d4169
6 changed files with 277 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/api.ml
View file

@ -915,6 +915,10 @@ module SignKey = struct
Signkey.{ pub; stamp_start; stamp_expire; stamp_end; master_sig } =
{ key= pub; stamp_start; stamp_expire; stamp_end; master_sig }
let to_signkey { key= pub; stamp_start; stamp_expire; stamp_end; master_sig }
=
Signkey.{ pub; stamp_start; stamp_expire; stamp_end; master_sig }
let jsont =
let make key stamp_start stamp_expire stamp_end master_sig =
{ key; stamp_start; stamp_expire; stamp_end; master_sig }
@ -1261,7 +1265,7 @@ module ExchangeKeysResponse = struct
stefan_lin: Float.t;
asset_type: string;
accounts: ExchangeWireAccount.t list;
wire_fees: AggregateTransferFee.t list Stdlib.Map.Make(Stdlib.String).t;
wire_fees: AggregateTransferFee.t list String_map.t;
wads: ExchangePartnerListEntry.t list;
kyc_enabled: bool;
disable_direct_deposit: bool;
@ -1278,7 +1282,7 @@ module ExchangeKeysResponse = struct
list_issue_date: Timestamp.t;
auditors: AuditorKeys.t list;
signkeys: SignKey.t list;
extensions: ExtensionManifest.t Stdlib.Map.Make(Stdlib.String).t option;
extensions: ExtensionManifest.t String_map.t option;
(* Signature by the exchange master key of the SHA-256 hash of the
normalized JSON-object of field extensions, if it was set.
The signature has purpose TALER_SIGNATURE_MASTER_EXTENSIONS. *)