Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests which expect an inexact value can accept an equivalent exact value

Browse source
This commit is contained in:
Alex Shinn 2018-03-17 16:50:41 +09:00
parent f0c9f0e705
commit 933aeb5654
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/test.scm
View file

@ -664,7 +664,9 @@
(if (real? expect) (if (real? expect)
(and (inexact? expect) (and (inexact? expect)
(real? res) (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))) (approx-equal? expect res (current-test-epsilon)))
(and (complex? res) (and (complex? res)
(complex? expect) (complex? expect)