From be8cdfaabb012c5d7d55b9cceb41c24f424161bb Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 1 May 2015 14:09:06 -0400 Subject: [PATCH] * test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it. --- test/automated/cl-lib-tests.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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=))) -- 2.39.2