ikarus/scheme/tests/lists.ss

44 lines
1.9 KiB
Scheme
Raw Normal View History

2007-10-10 05:28:07 -04:00
(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)]
2007-10-10 06:43:25 -04:00
[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)]
2007-10-10 05:28:07 -04:00
))
2007-10-10 06:43:25 -04:00