swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

test: curl --fail; use KUDOs

Browse source
This commit is contained in:
swrup 2026-02-21 23:40:58 +01:00
parent 283ad65a10
commit 631b40f6d8
5 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/test.ml
View file

@ -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);
()