X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Flist.lisp;h=78cec44fc301e95533eaad56a6ecb3f4c4c90943;hb=37b1b658da3d73aa304df83cc3e8bf8aa6548a25;hp=7969b0ba6612de0e46bea324508435935777f60e;hpb=ef08bfe65f3da8a361b150b424d3d8359e5e6968;p=jscl.git

diff --git a/tests/list.lisp b/tests/list.lisp
index 7969b0b..78cec44 100644
--- a/tests/list.lisp
+++ b/tests/list.lisp
@@ -44,6 +44,12 @@
              (acons 1 2 (list (cons 3 4)))))
 (test (equal (list (cons 1 2)) (acons 1 2 ())))
 
+; PAIRLIS
+(test (equal (list (cons 1 3) (cons 0 2))
+             (pairlis '(0 1) '(2 3))))
+(test (equal (list (cons 1 2) (cons 'a 'b))
+             (pairlis '(1) '(2) (list (cons 'a 'b)))))
+
 ; SUBST
 ; Can't really test this until EQUAL works properly on lists