test/validate_response.ml

@@ -2,9 +2,9 @@ open Syntax
 (*open Crypto*)
 
 let keys content =
-  let open Api.ExchangeKeysResponse in
+  let open Api in
+  let open ExchangeKeysResponse in
   let* v = Api.decode jsont content in
-  (* validate version compatibility *)
   let* () =
     if
       Libtool_version.is_compatible
@@ -13,13 +13,13 @@ let keys content =
     else Fmt.error "version incompatible"
   in
 
-  (* TODO *)
-  (* validate currency specification *)
-  (* validate all amounts *)
-  (* validate all timestamp/duration *)
-  (* validate master_public_key *)
-  (* validate accounts *)
+  (* validate ExchangeWireAccount (TODO need hash over json) *)
   (* validate wire-fees *)
+  let* () =
+    let open AggregateTransferFee in
+    { wire_fee; closing_fee; start_date; end_date; sig_ }
+  in
+
   (* validate signkeys *)
   (* validate exchange_pub *)
   (* validate denominations *)