test/management.sh

@@ -110,3 +110,8 @@ offline_tool drain \
 --amount $zero_kudos
 offline_tool upload --input $b --url $url"/management/drain"
 echo "[OK] /management/drain"
+
+demo_keys="test/keys.demo.taler.net.v31_0_9.json"
+dune exec test/validate_response.exe -- keys --input $demo_keys
+offline_tool download --output $a --url $url"/keys"
+dune exec test/validate_response.exe -- keys --input $a

test/validate_response.ml

@@ -77,7 +77,7 @@ let keys content =
     |> list_iter
          (Denomination.verify_denomination_key_validity ~key:v.master_public_key)
   in
-  Fmt.pr "OK denominations@.";
+  (*Fmt.pr "OK denominations@.";*)
 
   let* () =
     (* TODO O(n^2) *)
@@ -115,7 +115,7 @@ let keys content =
                    denom_hash= dn.h_pub;
                  })
   in
-  Fmt.pr "OK auditors@.";
+  (*Fmt.pr "OK auditors@.";*)
 
   Ok ()