test/auditor_public_key

@@ -1 +0,0 @@
-A17JXR3E6J4CXDPYT7S1H25PGJ3ABS26TQ38654QCX0TB59RPMF0

test/offline_management.sh

@@ -6,9 +6,9 @@ a="/tmp/a.json"
 b="/tmp/b.json"
 
 url="http://localhost:3434"
-auditor_pub=$(<"./test/auditor_public_key")
+auditor_pub="A17JXR3E6J4CXDPYT7S1H25PGJ3ABS26TQ38654QCX0TB59RPMF0"
 master_key="./default/master_offline_private_key"
-zero_euro="EUR:0.0"
+zero_euro="KUDO:0.0"
 
 offline_tool() {
    dune exec offline -- "$@" > /dev/null

test/test.ml

@@ -48,16 +48,16 @@ let () =
 let () =
   let open Amount in
   let v =
-    make ~sign:(Some Sign_plus) ~currency:"EUR" ~value:(Int64.of_int 25)
+    make ~sign:(Some Sign_plus) ~currency:"KUDO" ~value:(Int64.of_int 25)
       ~fraction:(Int32.of_int 678)
     |> Result.get_ok
   in
   let s = to_string v in
   let v' = of_string s |> Result.get_ok in
   assert (v = v');
-  let r = of_string {|~EUR:4.9|} in
+  let r = of_string {|~KUDO:4.9|} in
   assert (Result.is_error r);
-  let r = of_string {|+EUR:4.99999999999999999999999|} in
+  let r = of_string {|+KUDO:4.99999999999999999999999|} in
   assert (Result.is_error r);
   ()
 

tools/gen_registry_files.ml

@@ -41,7 +41,15 @@ let download ~tmp ~url =
   let res =
     OS.Cmd.run
       Cmd.(
-        v "curl" % "--silent" % "--show-error" % "-o" % tmp % "-X" % "GET" % url)
+        v "curl"
+        % "--silent"
+        % "--show-error"
+        % "--fail"
+        % "-o"
+        % tmp
+        % "-X"
+        % "GET"
+        % url)
   in
   match res with
   | Error (`Msg s) -> Fmt.failwith "download failure: %s" s

tools/offline_impl.ml

@@ -158,6 +158,7 @@ let download ~output ~url =
       v "curl"
       % "--silent"
       % "--show-error"
+      % "--fail"
       % "-o"
       % output
       % "-X"
@@ -171,6 +172,8 @@ let upload ~input ~url =
     Cmd.(
       v "curl"
       % "--silent"
+      % "--show-error"
+      % "--fail"
       % "-i"
       % "-X"
       % "POST"