test/validate_response.ml

@@ -74,27 +74,8 @@ let keys content =
   let denom_l = v.denominations |> Denomination.denoms_of_denomgroups in
   let* () =
     denom_l
-    |> list_iter (fun dn ->
-        let open Denomination in
-        (*let to_int64 ts = ts |> Timestamp.to_s |> Option.get in*)
-        Fmt.pr "rsa_pub: %s@." (Crypto.RsaPublicKey.to_b32 dn.pub);
-        Fmt.pr "master_sig: %s@." (B32.encode @@ Obj.magic dn.master_sig);
-        (* amount bin fraction bad? *)
-        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 =
-      denom_l
-      |> List.map (fun dn -> dn.Denomination.stamp_start)
-      |> List.fold_left Timestamp.max Timestamp.zero
-    in
-    if last_issue_date = v.list_issue_date then Ok ()
-    else Fmt.error "list_issue_date is wrong"
+    |> list_iter
+         (Denomination.verify_denomination_key_validity ~key:v.master_public_key)
   in
   Fmt.pr "OK denominations@.";