wip: test revoke

test/offline_management.sh

@@ -22,6 +22,24 @@ offline_tool sign \
 offline_tool upload --input $b --url $url"/management/keys"
 echo "[OK] /management/keys"
 
+offline_tool download --output $a --url $url"/keys"
+rsa_pub=$(jq -r '.denominations[0].denoms[0].rsa_pub' $a)
+h_denom=$(dune exec offline -- hash64 $rsa_pub)
+offline_tool revoke-denom \
+--master_key $master_key \
+--output $b \
+$h_denom
+offline_tool upload --input $b --url $url"/management/denominations/"$h_denom"/revoke"
+echo "[OK] /management/denominations/\$H_DENOM/revoke"
+
+pub=$(jq -r '.signkeys[0].key' $a)
+offline_tool revoke-signkey \
+--master_key $master_key \
+--output $b \
+$pub
+offline_tool upload --input $b --url $url"/management/signkeys/"$pub"/revoke"
+echo "[OK] /management/signkeys/\$EXCHANGE_PUB/revoke"
+
 offline_tool enable-auditor \
 --master_key $master_key \
 --output $b \
@@ -32,6 +50,8 @@ offline_tool enable-auditor \
 offline_tool upload --input $b --url $url"/management/auditors"
 echo "[OK] /management/auditors"
 
+# todo test disable auditor
+
 offline_tool wire-fee \
 --master_key $master_key \
 --output $b \
@@ -56,3 +76,9 @@ offline_tool global-fees \
 --purse_timeout 9999999
 offline_tool upload --input $b --url $url"/management/global-fees"
 echo "[OK] /management/global-fees"
+
+# todo test enable wire
+# todo test disable wire
+# todo test drain
+# todo test aml-officer
+# todo test partners

tools/offline.ml

@@ -137,6 +137,23 @@ let revoke_denom_cmd =
   let+ output = output and+ master_key = master_key and+ h_denom = h_denom in
   revoke_denom ~output ~master_key ~h_denom
 
+(* just for tests... *)
+let test_hash64_cmd =
+  let doc =
+    "Compute SHA-512, print output to stdout, input and output are \
+     Crockford-base32 encoded"
+  in
+  let s = Arg.(required & pos 0 (some string) None & info []) in
+  Cmd.make (Cmd.info "hash64" ~doc)
+  @@
+  let+ s = s in
+  match B32.decode s with
+  | Error e -> Error e
+  | Ok s ->
+      let h = Hash.DenominationHash.hash s in
+      let s = B32.encode (Hash.DenominationHash.to_octets h) in
+      Fmt.pr "%s@." s; Ok ()
+
 let revoke_signkey_cmd =
   let doc = "Revoke signkey." in
   let signkey =
@@ -305,6 +322,7 @@ let cli =
       wire_fee_cmd;
       global_fees_cmd;
       drain_cmd;
+      test_hash64_cmd;
     ]
 
 let main () = Cmd.eval_result cli