simon/iter
1
0
Fork 0
mirror of https://github.com/c-cube/iter.git synced 2025-12-06 11:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

update test

Browse source
This commit is contained in:
Simon Cruanes 2017-09-05 08:11:07 +02:00
parent f79309a6f2
commit 952c7a4529
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Sequence.ml
View file

@ -749,9 +749,8 @@ let sumf seq : float =
!sum !sum
(*$R (*$R
let cmp x y = (abs_float (x-.y)) < 0.05 in
let seq = of_list [10000.0; 3.14159; 2.71828] in let seq = of_list [10000.0; 3.14159; 2.71828] in
assert_equal ~printer:string_of_float ~cmp 10005.9 (sumf seq) assert_equal ~printer:string_of_float 10005.85987 (sumf seq)
*) *)
exception ExitHead exception ExitHead