diff options
Diffstat (limited to 'test-suite/tests/srfi-1.test')
-rw-r--r-- | test-suite/tests/srfi-1.test | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/test-suite/tests/srfi-1.test b/test-suite/tests/srfi-1.test index 772009043..e60edfa99 100644 --- a/test-suite/tests/srfi-1.test +++ b/test-suite/tests/srfi-1.test @@ -44,6 +44,55 @@ ;; +;; 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! ;; |