From ed47f4d3b8dfe630104897543bb87faf0722a0e7 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 25 Oct 2018 01:42:22 +0000 Subject: [PATCH] Fix sense of test. Do this part only if 1 - p is guaranteed exact. --- tests/runtime/test-arith.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/runtime/test-arith.scm b/tests/runtime/test-arith.scm index 973137873..ea5a6a1cd 100644 --- a/tests/runtime/test-arith.scm +++ b/tests/runtime/test-arith.scm @@ -211,7 +211,7 @@ USA. (if (< p 1) (begin (assert->= 1e-15 (relerr (- 1 p) (logistic (- x)))) - (if (< (- 1 p) 1) + (if (<= 1/2 p) (assert->= 1e-15 (relerr (- x) (logit (- 1 p)))))) (assert->= 1e-300 (logistic (- x)))) (assert->= 1e-15 (relerr t (log-logistic x))) -- 2.25.1