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

Browse source
This commit is contained in:
swrup 2025-11-21 19:09:46 +01:00
parent 65ccb5a86f
commit 7d2bb9cfa6
3 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/test.ml
View file

@ -28,10 +28,10 @@ let () =
()
let () =
let open Types.Amount in
let open Amount in
let v =
Amount.make ~sign:(Some Amount.Sign_plus) ~currency:"EUR"
~value:(Int64.of_int 25) ~fraction:(Int32.of_int 678)
make ~sign:(Some Sign_plus) ~currency:"EUR" ~value:(Int64.of_int 25)
~fraction:(Int32.of_int 678)
|> Result.get_ok
in
let s = to_string v in