From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 14 Dec 2018 16:12:09 +0000 (+0000)
Subject: Relax expm1 tests; i387 in 53-bit precision won't guarantee 0.5ulp.
X-Git-Tag: mit-scheme-pucked-10.1.9~3^2~35^2~15
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f15d1d945fcd7406888ea62791b8adec1f637ae4;p=mit-scheme.git

Relax expm1 tests; i387 in 53-bit precision won't guarantee 0.5ulp.
---

diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm
index a018bdd7a..94d783c93 100644
--- a/tests/runtime/test-arith.scm
+++ b/tests/runtime/test-arith.scm
@@ -282,9 +282,7 @@ USA.
   (list
    (list 0 0)
    (list (log 2) 1.)
-   (list 1 (- (exp 1) 1))
-   (list (expt 2 -53) (expt 2. -53))
-   (list (- (expt 2 -53)) (- (expt 2. -53))))
+   (list 1 (- (exp 1) 1)))
   (lambda (x y)
     (assert-eqv (expm1 x) y)))
 
@@ -300,7 +298,9 @@ USA.
    (list -0.6 -0.45118836390597356)
    (list 0.6 .8221188003905089)
    (list (log 2) 1.)
-   (list 0.7 1.0137527074704766))
+   (list 0.7 1.0137527074704766)
+   (list (expt 2 -53) (expt 2. -53))
+   (list (- (expt 2 -53)) (- (expt 2. -53))))
   (lambda (x y)
     (assert-<= (relerr y (expm1 x)) 1e-15)))