diff options
| author | Stefan Kangas | 2025-02-17 04:52:49 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-02-17 05:37:10 +0100 |
| commit | 5ce746c3b0fa3a0b73796182960ff06cf3f31473 (patch) | |
| tree | da6a18b124a472af60562dbd82253c55d5eec78a /test/lisp/eshell | |
| parent | 657f4658a7141708adb7f3ca594145f2df569d4c (diff) | |
| download | emacs-5ce746c3b0fa3a0b73796182960ff06cf3f31473.tar.gz emacs-5ce746c3b0fa3a0b73796182960ff06cf3f31473.zip | |
Prefer oddp/evenp to free-coding them in tests
* test/lisp/emacs-lisp/bindat-tests.el (bindat-test--sint):
* test/lisp/emacs-lisp/seq-tests.el (test-seq-drop-while)
(test-seq-take-while, test-seq-filter, test-seq-remove)
(test-seq-count, test-seq-some, test-seq-find, test-seq-every-p)
(test-seq-group-by):
* test/lisp/eshell/em-pred-tests.el (eshell-with-file-attributes-from-name):
* test/lisp/filenotify-tests.el (file-notify-test07-many-events)
(file-notify-test09-watched-file-in-watched-dir):
* test/src/floatfns-tests.el (bignum-expt, bignum-round):
* test/src/undo-tests.el (undo-test4): Prefer oddp/evenp to free-coding
them.
Diffstat (limited to 'test/lisp/eshell')
| -rw-r--r-- | test/lisp/eshell/em-pred-tests.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/lisp/eshell/em-pred-tests.el b/test/lisp/eshell/em-pred-tests.el index db8ce2c45a3..a050c6426e9 100644 --- a/test/lisp/eshell/em-pred-tests.el +++ b/test/lisp/eshell/em-pred-tests.el | |||
| @@ -142,7 +142,7 @@ behavior for real files. | |||
| 142 | (let ((attrs (eshell-parse-file-name-attributes file))) | 142 | (let ((attrs (eshell-parse-file-name-attributes file))) |
| 143 | ;; For simplicity, just return whether the file is | 143 | ;; For simplicity, just return whether the file is |
| 144 | ;; world-executable. | 144 | ;; world-executable. |
| 145 | (= (logand (or (alist-get 'modes attrs) 0) 1) 1))))) | 145 | (oddp (or (alist-get 'modes attrs) 0)))))) |
| 146 | ,@body)) | 146 | ,@body)) |
| 147 | 147 | ||
| 148 | ;;; Tests: | 148 | ;;; Tests: |