From: Alfredo Beaumont <alfredo.beaumont@gmail.com>
Date: Fri, 10 May 2013 14:45:14 +0000 (+0200)
Subject: [test] Add a test for mapcar
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=15ebaa6e202e3303266ebc7e9e2b3e51326683a2;p=jscl.git

[test] Add a test for mapcar
---

diff --git a/tests/list.lisp b/tests/list.lisp
index 9bb2996..d96c7db 100644
--- 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)