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

(append-map): New tests.

Browse source
This commit is contained in:
Kevin Ryde 2004-12-04 23:10:39 +00:00
parent 558d5c0346
commit bbd1b480f4
1 changed files with 49 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -43,6 +43,55 @@
(set! lst (ref-delete elem lst proc))))))
;;
;; append-map
;;
(with-test-prefix "append-map"
(with-test-prefix "one list"
(pass-if "()"
(equal? '() (append-map noop '(()))))
(pass-if "(1)"
(equal? '(1) (append-map noop '((1)))))
(pass-if "(1 2)"
(equal? '(1 2) (append-map noop '((1 2)))))
(pass-if "() ()"
(equal? '() (append-map noop '(() ()))))
(pass-if "() (1)"
(equal? '(1) (append-map noop '(() (1)))))
(pass-if "() (1 2)"
(equal? '(1 2) (append-map noop '(() (1 2)))))
(pass-if "(1) (2)"
(equal? '(1 2) (append-map noop '((1) (2)))))
(pass-if "(1 2) ()"
(equal? '(1 2) (append-map noop '(() (1 2))))))
(with-test-prefix "two lists"
(pass-if "() / 9"
(equal? '() (append-map noop '(()) '(9))))
(pass-if "(1) / 9"
(equal? '(1) (append-map noop '((1)) '(9))))
(pass-if "() () / 9 9"
(equal? '() (append-map noop '(() ()) '(9 9))))
(pass-if "(1) (2) / 9"
(equal? '(1) (append-map noop '((1) (2)) '(9))))
(pass-if "(1) (2) / 9 9"
(equal? '(1 2) (append-map noop '((1) (2)) '(9 9))))))
;;
;; concatenate and concatenate!
;;