test: Add test for append-map.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sun, 2 Apr 2017 06:04:25 +0000 (08:04 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sun, 2 Apr 2017 06:04:25 +0000 (08:04 +0200)
* tests/srfi-1.test ("append-map"): New test.

tests/srfi-1.test

index fd739bb1aeaa52ff20c20acfbb4dff785771090d..6a4bfb4e8c842994b94a993d35a1916974b8dcde 100755 (executable)
@@ -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)