mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

(reduce, reduce-right): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2005-02-11 21:40:32 +00:00
parent b064377679
commit 80eba4e572
1 changed files with 108 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

108
test-suite/tests/srfi-1.test
View file

@ -1082,6 +1082,114 @@
(and (= (length odd) 10000) (and (= (length odd) 10000)
(= (length even) 0)))))) (= (length even) 0))))))
;;
;; reduce
;;
(with-test-prefix "reduce"
(pass-if "empty"
(let* ((calls '())
(ret (reduce (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '())))
(and (equal? calls '())
(equal? ret 1))))
(pass-if "one elem"
(let* ((calls '())
(ret (reduce (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2))))
(and (equal? calls '())
(equal? ret 2))))
(pass-if "two elems"
(let* ((calls '())
(ret (reduce (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2 3))))
(and (equal? calls '((3 2)))
(equal? ret 3))))
(pass-if "three elems"
(let* ((calls '())
(ret (reduce (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2 3 4))))
(and (equal? calls '((4 3)
(3 2)))
(equal? ret 4))))
(pass-if "four elems"
(let* ((calls '())
(ret (reduce (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2 3 4 5))))
(and (equal? calls '((5 4)
(4 3)
(3 2)))
(equal? ret 5)))))
;;
;; reduce-right
;;
(with-test-prefix "reduce-right"
(pass-if "empty"
(let* ((calls '())
(ret (reduce-right (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '())))
(and (equal? calls '())
(equal? ret 1))))
(pass-if "one elem"
(let* ((calls '())
(ret (reduce-right (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2))))
(and (equal? calls '())
(equal? ret 2))))
(pass-if "two elems"
(let* ((calls '())
(ret (reduce-right (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2 3))))
(and (equal? calls '((2 3)))
(equal? ret 2))))
(pass-if "three elems"
(let* ((calls '())
(ret (reduce-right (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2 3 4))))
(and (equal? calls '((2 3)
(3 4)))
(equal? ret 2))))
(pass-if "four elems"
(let* ((calls '())
(ret (reduce-right (lambda (x prev)
(set! calls (cons (list x prev) calls))
x)
1 '(2 3 4 5))))
(and (equal? calls '((2 3)
(3 4)
(4 5)))
(equal? ret 2)))))
;; ;;
;; remove ;; remove
;; ;;