diff options
| author | Glenn Morris | 2015-05-01 14:09:06 -0400 |
|---|---|---|
| committer | Glenn Morris | 2015-05-01 14:09:06 -0400 |
| commit | be8cdfaabb012c5d7d55b9cceb41c24f424161bb (patch) | |
| tree | 43c083ab9598687bd22f2865bec8ef905bca31dc | |
| parent | a73af965492c05f47048fd1f22028792574941a5 (diff) | |
| download | emacs-be8cdfaabb012c5d7d55b9cceb41c24f424161bb.tar.gz emacs-be8cdfaabb012c5d7d55b9cceb41c24f424161bb.zip | |
* test/automated/cl-lib-tests.el (cl-lib-adjoin-test): Fix it.
| -rw-r--r-- | 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 d272f3a5ee2..ece1d45cae0 100644 --- a/test/automated/cl-lib-tests.el +++ b/test/automated/cl-lib-tests.el | |||
| @@ -448,8 +448,8 @@ | |||
| 448 | ;;(should-error (cl-adjoin 3 nums :test 'myfn-p :test-not myfn-p)) | 448 | ;;(should-error (cl-adjoin 3 nums :test 'myfn-p :test-not myfn-p)) |
| 449 | 449 | ||
| 450 | ;; own :key fn | 450 | ;; own :key fn |
| 451 | (should (eq nums (cl-adjoin 3 nums :key (lambda (x) (if (evenp x) (1+ x) x))))) | 451 | (should (eq nums (cl-adjoin 3 nums :key (lambda (x) (if (cl-evenp x) (1+ x) x))))) |
| 452 | (should (equal '(3 1 2) (cl-adjoin 3 nums :key (lambda (x) (if (evenp x) (+ 2 x) x))))) | 452 | (should (equal '(3 1 2) (cl-adjoin 3 nums :key (lambda (x) (if (cl-evenp x) (+ 2 x) x))))) |
| 453 | 453 | ||
| 454 | ;; convert using :key, then compare with :test | 454 | ;; convert using :key, then compare with :test |
| 455 | (should (eq nums (cl-adjoin 1 nums :key 'int-to-string :test 'string=))) | 455 | (should (eq nums (cl-adjoin 1 nums :key 'int-to-string :test 'string=))) |