test: Add test for append-map.

* tests/srfi-1.test ("append-map"): New test.

diff --git a/tests/srfi-1.test b/tests/srfi-1.test
index fd739bb1aeaa52ff20c20acfbb4dff785771090d..6a4bfb4e8c842994b94a993d35a1916974b8dcde 100755 (executable)
--- 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)