+ validate signkeys

test/validate_response.ml

@@ -36,6 +36,21 @@ let keys content =
              })
   in
 
+  let* () =
+    let open SignKey in
+    v.signkeys
+    |> list_iter
+         (fun { key; stamp_start; stamp_expire; stamp_end; master_sig } ->
+           let open Signatures.ExchangeSigningKeyValidity in
+           verify v.master_public_key master_sig
+             {
+               R.start= stamp_start;
+               expire= stamp_expire;
+               end_= stamp_end;
+               signkey_pub= key;
+             })
+  in
+
   (* validate signkeys *)
   (* validate exchange_pub *)
   (* validate denominations *)