X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Flist.lisp;h=ac6ae909c5b56c158be851eeede693e6dca93c99;hb=69f4ead4d3a5f853780816b07e4408abcbc21cfc;hp=c72eec859635de5011476bd63f5b5f91786c0375;hpb=c6d504316367c4709e066f58d5593216b150ee5e;p=jscl.git

diff --git a/tests/list.lisp b/tests/list.lisp
index c72eec8..ac6ae90 100644
--- a/tests/list.lisp
+++ b/tests/list.lisp
@@ -169,7 +169,11 @@
   (test (equal (assoc  1 alist) '(1 . 2)))
   (test (equal (rassoc 2 alist) '(1 . 2)))
   (test (not   (assoc  2 alist)))
-  (test (not   (rassoc 1 alist))))
+  (test (not   (rassoc 1 alist)))
+  (test (equal (assoc  3 alist :test-not #'=) '(1 . 2)))
+  (test (equal (rassoc 4 alist :test-not #'=) '(1 . 2)))
+  (test (equal (assoc  1 alist :key (lambda (x) (/ x 3))) '(3 . 4)))
+  (test (equal (rassoc 2 alist :key (lambda (x) (/ x 2))) '(3 . 4)))) 
 
 ; MEMBER
 (test (equal (member 2 '(1 2 3)) '(2 3)))