mirror of
https://github.com/c-cube/iter.git
synced 2025-12-06 03:05:29 -05:00
update test
This commit is contained in:
parent
f79309a6f2
commit
952c7a4529
1 changed files with 1 additions and 2 deletions
|
|
@ -749,9 +749,8 @@ let sumf seq : float =
|
|||
!sum
|
||||
|
||||
(*$R
|
||||
let cmp x y = (abs_float (x-.y)) < 0.05 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
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue