Default test comparator should require same exactness.

This commit is contained in:
Alex Shinn 2013-06-04 21:58:32 +09:00
parent 3704289138
commit bb00cdaf1b

View file

@ -671,6 +671,7 @@
(if (real? expect)
(and (inexact? expect)
(real? res)
(inexact? res)
(approx-equal? expect res (current-test-epsilon)))
(and (complex? res)
(complex? expect)