This commit is contained in:
parent
283ad65a10
commit
c3df0c68db
4 changed files with 8 additions and 6 deletions
|
|
@ -1 +0,0 @@
|
||||||
A17JXR3E6J4CXDPYT7S1H25PGJ3ABS26TQ38654QCX0TB59RPMF0
|
|
||||||
|
|
@ -6,9 +6,9 @@ a="/tmp/a.json"
|
||||||
b="/tmp/b.json"
|
b="/tmp/b.json"
|
||||||
|
|
||||||
url="http://localhost:3434"
|
url="http://localhost:3434"
|
||||||
auditor_pub=$(<"./test/auditor_public_key")
|
auditor_pub="A17JXR3E6J4CXDPYT7S1H25PGJ3ABS26TQ38654QCX0TB59RPMF0"
|
||||||
master_key="./default/master_offline_private_key"
|
master_key="./default/master_offline_private_key"
|
||||||
zero_euro="EUR:0.0"
|
zero_euro="KUDO:0.0"
|
||||||
|
|
||||||
offline_tool() {
|
offline_tool() {
|
||||||
dune exec offline -- "$@" > /dev/null
|
dune exec offline -- "$@" > /dev/null
|
||||||
|
|
|
||||||
|
|
@ -48,16 +48,16 @@ let () =
|
||||||
let () =
|
let () =
|
||||||
let open Amount in
|
let open Amount in
|
||||||
let v =
|
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)
|
~fraction:(Int32.of_int 678)
|
||||||
|> Result.get_ok
|
|> Result.get_ok
|
||||||
in
|
in
|
||||||
let s = to_string v in
|
let s = to_string v in
|
||||||
let v' = of_string s |> Result.get_ok in
|
let v' = of_string s |> Result.get_ok in
|
||||||
assert (v = v');
|
assert (v = v');
|
||||||
let r = of_string {|~EUR:4.9|} in
|
let r = of_string {|~KUDO:4.9|} in
|
||||||
assert (Result.is_error r);
|
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);
|
assert (Result.is_error r);
|
||||||
()
|
()
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -158,6 +158,7 @@ let download ~output ~url =
|
||||||
v "curl"
|
v "curl"
|
||||||
% "--silent"
|
% "--silent"
|
||||||
% "--show-error"
|
% "--show-error"
|
||||||
|
% "--fail"
|
||||||
% "-o"
|
% "-o"
|
||||||
% output
|
% output
|
||||||
% "-X"
|
% "-X"
|
||||||
|
|
@ -171,6 +172,8 @@ let upload ~input ~url =
|
||||||
Cmd.(
|
Cmd.(
|
||||||
v "curl"
|
v "curl"
|
||||||
% "--silent"
|
% "--silent"
|
||||||
|
% "--show-error"
|
||||||
|
% "--fail"
|
||||||
% "-i"
|
% "-i"
|
||||||
% "-X"
|
% "-X"
|
||||||
% "POST"
|
% "POST"
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue