From 933aeb5654ddf86b6a3b3b66d78bdacbd1274a08 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sat, 17 Mar 2018 16:50:41 +0900 Subject: [PATCH] tests which expect an inexact value can accept an equivalent exact value --- lib/chibi/test.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index f58b6526..f07607c0 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -664,7 +664,9 @@ (if (real? expect) (and (inexact? expect) (real? res) - (inexact? res) + ;; tests which expect an inexact value can + ;; accept an equivalent exact value + ;; (inexact? res) (approx-equal? expect res (current-test-epsilon))) (and (complex? res) (complex? expect)