Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-12 23:47:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing test handling of inexact complex numbers.

Browse source
This commit is contained in:
Alex Shinn 2012-11-01 21:40:21 +09:00
parent d893c89838
commit da4909907f
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/test.scm
View file

@ -632,9 +632,13 @@
(define (test-equal? expect res) (define (test-equal? expect res)
(or (equal? expect res) (or (equal? expect res)
(and (number? expect) (if (real? expect)
(inexact? expect) (and (inexact? expect)
(approx-equal? expect res (current-test-epsilon))))) (real? res)
(approx-equal? expect res (current-test-epsilon)))
(and (complex? res)
(test-equal? (real-part expect) (real-part res))
(test-equal? (imag-part expect) (imag-part res))))))
;;> Begin testing a new group until the closing @scheme{(test-end)}. ;;> Begin testing a new group until the closing @scheme{(test-end)}.

1
lib/chibi/test.sld
View file

@ -11,6 +11,7 @@
current-test-epsilon current-test-comparator) current-test-epsilon current-test-comparator)
(import (scheme base) (import (scheme base)
(scheme write) (scheme write)
(scheme complex)
(scheme process-context) (scheme process-context)
(scheme time) (scheme time)
(only (srfi 1) every)) (only (srfi 1) every))