aaaaaaaaaaaaaaaaaaaaaarrgh

2026-02-28 01:27:25 +01:00 · 2026-02-28 01:27:25 +01:00 · da29f5bae3
commit da29f5bae3
parent 867ef1f47b
3 changed files with 45 additions and 9 deletions
--- a/test/validate_response.ml
+++ b/test/validate_response.ml
@ -74,8 +74,13 @@ let keys content =
  let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
  let* () =
    denom_l
-    |> list_iter
-         (Denomination.verify_denomination_key_validity ~key:v.master_public_key)
+    |> list_iter (fun dn ->
+        let* () =
+          Denomination.verify_denomination_key_validity ~key:v.master_public_key
+            dn
+        in
+        Fmt.pr "validated a denom@.";
+        Ok ())
  in
  let* () =
    let last_issue_date =