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

Updating R7RS tests with name changes.

Browse source
This commit is contained in:
Alex Shinn 2012-06-23 22:30:51 -07:00
parent fa7a567458
commit fba762deea
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
tests/r7rs-tests.scm
View file

@ -183,7 +183,7 @@
(head (tail (tail integers)))) (head (tail (tail integers))))
(define (stream-filter p? s) (define (stream-filter p? s)
(lazy (delay-force
(if (null? (force s)) (if (null? (force s))
(delay '()) (delay '())
(let ((h (car (force s))) (let ((h (car (force s)))
@ -468,7 +468,7 @@
(test 3 (numerator (/ 6 4))) (test 3 (numerator (/ 6 4)))
(test 2 (denominator (/ 6 4))) (test 2 (denominator (/ 6 4)))
(test 2.0 (denominator (test 2.0 (denominator
(exact->inexact (/ 6 4)))) (inexact (/ 6 4))))
(test -5.0 (floor -4.3)) (test -5.0 (floor -4.3))
(test -4.0 (ceiling -4.3)) (test -4.0 (ceiling -4.3))
@ -484,7 +484,7 @@
(test 7 (round 7)) (test 7 (round 7))
(test 1/3 (rationalize (test 1/3 (rationalize
(inexact->exact .3) 1/10)) ; exact (exact .3) 1/10)) ; exact
;; (test #i1/3 (rationalize .3 1/10)) ; inexact% ;; (test #i1/3 (rationalize .3 1/10)) ; inexact%
(test '(2 0) (call-with-values (lambda () (exact-integer-sqrt 4)) list)) (test '(2 0) (call-with-values (lambda () (exact-integer-sqrt 4)) list))
@ -587,7 +587,7 @@
(test 'c (list-ref '(a b c d) 2)) (test 'c (list-ref '(a b c d) 2))
(test 'c (list-ref '(a b c d) (test 'c (list-ref '(a b c d)
(inexact->exact (round 1.8)))) (exact (round 1.8))))
(test '(0 ("Sue" "Sue") "Anna") (test '(0 ("Sue" "Sue") "Anna")
(let ((lst (list 0 '(2 2 2 2) "Anna"))) (let ((lst (list 0 '(2 2 2 2) "Anna")))
@ -659,7 +659,7 @@
(test 13 (vector-ref '#(1 1 2 3 5 8 13 21) (test 13 (vector-ref '#(1 1 2 3 5 8 13 21)
(let ((i (round (* 2 (acos -1))))) (let ((i (round (* 2 (acos -1)))))
(if (inexact? i) (if (inexact? i)
(inexact->exact i) (exact i)
i)))) i))))
(test #(0 ("Sue" "Sue") "Anna") (let ((vec (vector 0 '(2 2 2 2) "Anna"))) (test #(0 ("Sue" "Sue") "Anna") (let ((vec (vector 0 '(2 2 2 2) "Anna")))