[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master be8cdfa: * test/automated/cl-lib-tests.el (cl-lib-a
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master be8cdfa: * test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it. |
Date: |
Fri, 01 May 2015 18:09:13 +0000 |
branch: master
commit be8cdfaabb012c5d7d55b9cceb41c24f424161bb
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it.
---
test/automated/cl-lib-tests.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/test/automated/cl-lib-tests.el b/test/automated/cl-lib-tests.el
index d272f3a..ece1d45 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=)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master be8cdfa: * test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it.,
Glenn Morris <=