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

Browse source
This commit is contained in:
swrup 2025-10-06 21:52:32 +02:00
parent b1fbebfcfa
commit 748d199b9c
8 changed files with 721 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/test.ml
View file

@ -28,10 +28,10 @@ let () =
let open Types.Amount in
let v =
{
sign= Some `Plus
; currency= `Eur
; value= Int64.of_int 25
; fraction= Int64.of_int 678
sign= Some `Plus;
currency= `Eur;
value= Int64.of_int 25;
fraction= Int64.of_int 678;
}
in
let s = to_string v in