[test] Add a test for mapcar

diff --git a/tests/list.lisp b/tests/list.lisp
index 9bb2996..d96c7db 100644 (file)
--- a/tests/list.lisp
+++ b/tests/list.lisp
@@ -88,6 +88,9 @@
         (and (= bar 1)
              (= (car foo) 2))))
 
+;; MAPCAR
+(test (equal (mapcar #'+ '(1 2) '(3) '(4 5 6)) '(8)))
+
 ;; MAPC
 (test (equal (mapc #'+ '(1 2) '(3) '(4 5 6)) '(1 2)))
 (test (let (foo)