summaryrefslogtreecommitdiff
path: root/test-suite/tests/srfi-1.test
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2004-12-04 23:10:39 +0000
committerKevin Ryde <user42@zip.com.au>2004-12-04 23:10:39 +0000
commitbbd1b480f40c96a0b84fb29c050d028d4b5f1e6f (patch)
treed101bcb6fb2d53183f87b75ba3a46c208caf843e /test-suite/tests/srfi-1.test
parent558d5c03464e08cc748fd447762ba17f1bd10f5f (diff)
downloadguile-bbd1b480f40c96a0b84fb29c050d028d4b5f1e6f.tar.gz
(append-map): New tests.
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!
;;