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

add amount.mli

Browse source
This commit is contained in:
swrup 2025-11-20 22:14:45 +01:00
parent 58bce4efa2
commit 9b760b436f
5 changed files with 48 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
test/test.ml
View file

@ -30,12 +30,9 @@ let () =
let () =
let open Types.Amount in
let v =
{
sign= Some `Plus;
currency= `Eur;
value= Int64.of_int 25;
fraction= Int32.of_int 678;
}
Amount.make ~sign:(Some Amount.Sign_plus) ~currency:"EUR"
~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