summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-1.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/srfi-1.test')
-rw-r--r--test-suite/tests/srfi-1.test49
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!
;;