test/validate_response.ml

@@ -72,6 +72,7 @@ let keys content =
   (*Fmt.pr "OK exchange_pub@.";*)
 
   let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
+  (*
   let* () =
     denom_l
     |> list_iter (fun dn ->
@@ -82,6 +83,8 @@ let keys content =
         Fmt.pr "validated a denom@.";
         Ok ())
   in
+  *)
+  (*
   let* () =
     let last_issue_date =
       denom_l
@@ -91,6 +94,7 @@ let keys content =
     if last_issue_date = v.list_issue_date then Ok ()
     else Fmt.error "list_issue_date is wrong"
   in
+  *)
   Fmt.pr "OK denominations@.";
 
   let* () =