From: Glenn Morris <rgm@gnu.org>
Date: Fri, 1 May 2015 18:09:06 +0000 (-0400)
Subject: * test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it.
X-Git-Tag: emacs-25.0.90~2229^2~12
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be8cdfaabb012c5d7d55b9cceb41c24f424161bb;p=emacs.git

* test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it.
---

diff --git a/test/automated/cl-lib-tests.el b/test/automated/cl-lib-tests.el
index d272f3a5ee2..ece1d45cae0 100644
--- a/test/automated/cl-lib-tests.el
+++ b/test/automated/cl-lib-tests.el
@@ -448,8 +448,8 @@
     ;;(should-error (cl-adjoin 3 nums :test 'myfn-p :test-not myfn-p))
 
     ;; own :key fn
-    (should (eq nums (cl-adjoin 3 nums :key (lambda (x) (if (evenp x) (1+ x) x)))))
-    (should (equal '(3 1 2) (cl-adjoin 3 nums :key (lambda (x) (if (evenp x) (+ 2 x) x)))))
+    (should (eq nums (cl-adjoin 3 nums :key (lambda (x) (if (cl-evenp x) (1+ x) x)))))
+    (should (equal '(3 1 2) (cl-adjoin 3 nums :key (lambda (x) (if (cl-evenp x) (+ 2 x) x)))))
 
     ;; convert using :key, then compare with :test
     (should (eq nums (cl-adjoin 1 nums :key 'int-to-string :test 'string=)))