ikarus/scheme/tests/lists.ss

(library (tests lists)
  (export test-lists)
  (import (ikarus) (tests framework))

  (define-tests test-lists
    [values (equal? (for-all even? '(1 2 3 4)) #f)]
    [values (equal? (for-all even? '(10 12 14 16)) #t)]
    [values (equal? (for-all even? '(2 3 4)) #f)]
    [values (equal? (for-all even? '(12 14 16)) #t)]
    [values (equal? (for-all (lambda (x) x) '(12 14 16)) 16)]
    [values (equal? (for-all (lambda (x) x) '(12 14)) 14)]
    [values (equal? (for-all (lambda (x) x) '(12)) 12)]
    [values (equal? (for-all (lambda (x) x) '()) #t)]
    [values (equal? (for-all even? '(13 . 14)) #f)]
    [values (equal? (for-all cons '(1 2 3) '(a b c)) '(3 . c))]
    [values (equal? (for-all (lambda (a b) (= a 1)) '(1 2 3) '(a b c)) #f)]
    [values (equal? (for-all (lambda (a b) (= a 1)) '(1 2) '(a b c)) #f)]
    [values (equal? (fold-left + 0 '(1 2 3 4 5)) 15)]
    [values (equal? (fold-left (lambda (a b) (cons b a)) '() '(1 2 3 4 5))
                    '(5 4 3 2 1))]
    [values (equal? (fold-left (lambda (count x)
                                 (if (odd? x) 
                                     (+ count 1) 
                                     count))
                               0 
                               '(3 1 4 1 5 9 2 6 5 3))
                    7)]
    [values (equal? (fold-left cons '(q) '(a b c)) '((((q) . a) . b) . c))]
    [values (equal? (fold-left + 0 '(1 2 3) '(4 5 6)) 21)]
    [values (equal? (fold-right + 0 '(1 2 3 4 5)) 15)]
    [values (equal? (fold-right cons '() '(1 2 3 4 5))
                    '(1 2 3 4 5))]
    [values (equal? (fold-right (lambda (x l)
                                 (if (odd? x) 
                                     (cons x l)
                                     l))
                               '()
                               '(3 1 4 1 5 9 2 6 5 3))
                    '(3 1 1 5 9 5 3))]
    [values (equal? (fold-right + 0 '(1 2 3) '(4 5 6)) 21)]
   ))