From 952c7a4529d128c4e704dcd32d9f6a8f2adbe6cb Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 5 Sep 2017 08:11:07 +0200
Subject: [PATCH] update test

---
 src/Sequence.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Sequence.ml b/src/Sequence.ml
index 6ecd54e..5ecfd23 100644
--- a/src/Sequence.ml
+++ b/src/Sequence.ml
@@ -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