From d6c20873e4f245f9b88ff068a03b576e17e06af0 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 2 May 2013 23:52:37 +0900 Subject: [PATCH] Fixing bug in test-equal? returning numeric results for non-real expects. --- lib/chibi/test.scm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/chibi/test.scm b/lib/chibi/test.scm index 7672151e..31403b41 100644 --- a/lib/chibi/test.scm +++ b/lib/chibi/test.scm @@ -673,6 +673,7 @@ (real? res) (approx-equal? expect res (current-test-epsilon))) (and (complex? res) + (complex? expect) (test-equal? (real-part expect) (real-part res)) (test-equal? (imag-part expect) (imag-part res))))))