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

fix amount parser

Browse source 
todo: private type
This commit is contained in:
Swrup 2025-10-03 22:42:16 +02:00
parent a04e179c08
commit cdd6d5142b
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test/test.ml
View file

@ -32,4 +32,8 @@ let () =
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
assert (Result.is_error r);
let r = of_string {|+EUR:4.99999999999999999999999|} in
assert (Result.is_error r);
()