suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix SRFI 1 testing of `unfold-right'

Browse Source
This commit is contained in:
Matthew Flatt 2012-10-29 07:56:42 -06:00
parent 78d48160b6
commit 7cca723382
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/srfi/1/fold.rkt
View File

@ -249,9 +249,3 @@
(recur (cdr lis))))))
;;; fold.rkt ends here
(module+ test
(define (test a b)
(unless (equal? a b) (error 'test "failed: ~e vs. ~e" a b)))
(test (unfold-right null? car cdr '(2 3) '(4 5))
'(3 2 4 5)))

13
collects/tests/srfi/1/fold-test.rkt
View File

@ -73,7 +73,7 @@
(lambda (seed) (* seed 2))
(lambda (seed) (* seed 3))
(lambda (seed) (* seed 5))
1)
'(1))
(list 1)))
(test-case
@ -82,8 +82,17 @@
(unfold-right (lambda (seed) (= seed 729))
(lambda (seed) (* seed 2))
(lambda (seed) (* seed 3))
1
1)
'(486 162 54 18 6 2)))
(test-case
"unfold-right:normal-case-opt-arg"
(check-equal?
(unfold-right (lambda (seed) (= seed 729))
(lambda (seed) (* seed 2))
(lambda (seed) (* seed 3))
1
'(1))
'(486 162 54 18 6 2 1)))
;; FOLD