test: Add test for append-map.

* tests/srfi-1.test ("append-map"): New test.
2017-04-02 08:04:25 +02:00 · 2017-04-02 08:04:25 +02:00 · 117006cf7c
parent dfabe9b215
commit 117006cf7c
1 changed files with 4 additions and 0 deletions
--- a/tests/srfi-1.test
+++ b/tests/srfi-1.test
@ -56,4 +56,8 @@ exit $?
 (pass-if-not "member ="
             (member 2 '(1 4) =))

+(pass-if-equal "append-map"
+               '(0 0 1)
+               (append-map iota '(1 2)))
+
 (result 'report)