diff options
Diffstat (limited to 'csc/list-test.csc')
| -rw-r--r-- | csc/list-test.csc | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/csc/list-test.csc b/csc/list-test.csc index d4c145a..faa90b6 100644 --- a/csc/list-test.csc +++ b/csc/list-test.csc @@ -98,5 +98,18 @@ (test unzip-empty (assert (values= (values '() '()) (unzip '())))) + (test unzip-simple (assert (values= (values '(1 2 3) '(4 5 6)) (unzip '((1 . 4) (2 . 5) (3 . 6)))))) + + +(test all-even + (assert-equal + #t + (all (lambda (x) (= 0 (remainder x 2))) '(2 12 8)))) + + +(test some-odd + (assert-equal + #f + (all (lambda (x) (= 0 (remainder x 2))) '(2 13 8)))) |