From 80fe6fed2d014d6948cf29733730679e039eea6d Mon Sep 17 00:00:00 2001 From: swrup Date: Tue, 3 Mar 2026 01:55:28 +0100 Subject: [PATCH] --- test/{offline_management.sh => management.sh} | 5 +++++ test/validate_response.ml | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) rename test/{offline_management.sh => management.sh} (93%) diff --git a/test/offline_management.sh b/test/management.sh similarity index 93% rename from test/offline_management.sh rename to test/management.sh index 1bc6a542..b387d187 100755 --- a/test/offline_management.sh +++ b/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 diff --git a/test/validate_response.ml b/test/validate_response.ml index 95d02531..d6ed58ba 100644 --- a/test/validate_response.ml +++ b/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 ()