diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/cl-lib-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/automated/cl-lib-tests.el b/test/automated/cl-lib-tests.el index ece1d45cae0..1bdc6d7ca09 100644 --- a/test/automated/cl-lib-tests.el +++ b/test/automated/cl-lib-tests.el | |||
| @@ -444,7 +444,7 @@ | |||
| 444 | (should (eq nums (cl-adjoin 2 nums :test-not myfn-p))) ; 1 matches | 444 | (should (eq nums (cl-adjoin 2 nums :test-not myfn-p))) ; 1 matches |
| 445 | (should (eq nums (cl-adjoin 3 nums :test-not myfn-p))) ; 1 and 2 matches | 445 | (should (eq nums (cl-adjoin 3 nums :test-not myfn-p))) ; 1 and 2 matches |
| 446 | 446 | ||
| 447 | ;; according to CLTL2 passing both :test and :test-not should signal error | 447 | ;; according to CLtL2 passing both :test and :test-not should signal error |
| 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 |