improve test value accuracy

2014-06-28 21:54:07 +09:00 · 2014-06-28 21:54:07 +09:00 · 2d59406403
parent 4fd99b5955
commit 2d59406403
1 changed files with 1 additions and 1 deletions
--- a/t/r7rs-tests.scm
+++ b/t/r7rs-tests.scm
@ -257,7 +257,7 @@
            (mean / /))))
 (let*-values (((a b c) (means '(8 5 99 1 22))))
  (test 27 a)
-  (test 9.728 b)
+  (test 9.7280002558226410514 b)
  (test (/ 1800 497) c))

 (let*-values (((root rem) (exact-integer-sqrt 32)))