test/validate_response.ml

@@ -64,7 +64,15 @@ let keys content =
         if Signkey.is_valid_at ~timestamp:now sk then Ok ()
         else Fmt.error "exchange_pub is not valid at the current time"
   in
-  (* validate exchange_sig *)
+  let* () =
+    let open Signatures.ExchangeKeySet in
+    verify v.exchange_pub v.exchange_sig
+      R.
+        {
+          list_issue_date= v.list_issue_date;
+          hc= Denomination.hash_over_master_sigs v.denominations;
+        }
+  in
 
   (* validate denominations *)
   (* validate global-fees *)