diff options
| author | Po Lu | 2023-03-31 09:14:17 +0800 |
|---|---|---|
| committer | Po Lu | 2023-03-31 09:14:17 +0800 |
| commit | ab3ef576b4c529aad7461283cea9bda67c7c8bcd (patch) | |
| tree | 31a9704cddfb06510784f890c4bcf15da1d3dc36 | |
| parent | 956cb8ca65b58f5e885d072c60aebfdf5a95784b (diff) | |
| parent | 560c27a332cf3739fc0b2bab7ad3118cd6998f12 (diff) | |
| download | emacs-ab3ef576b4c529aad7461283cea9bda67c7c8bcd.tar.gz emacs-ab3ef576b4c529aad7461283cea9bda67c7c8bcd.zip | |
Merge remote-tracking branch 'origin/master' into feature/android
| -rw-r--r-- | test/lisp/dired-aux-tests.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/test/lisp/dired-aux-tests.el b/test/lisp/dired-aux-tests.el index 5939f480680..62011d8b0f0 100644 --- a/test/lisp/dired-aux-tests.el +++ b/test/lisp/dired-aux-tests.el | |||
| @@ -55,12 +55,11 @@ | |||
| 55 | (setq to-mv | 55 | (setq to-mv |
| 56 | (expand-file-name | 56 | (expand-file-name |
| 57 | "foo-mv" (file-name-as-directory (expand-file-name "qux" ,foo)))) | 57 | "foo-mv" (file-name-as-directory (expand-file-name "qux" ,foo)))) |
| 58 | (unwind-protect | 58 | (if ,yes-or-no |
| 59 | (if ,yes-or-no | 59 | (cl-letf (((symbol-function 'yes-or-no-p) |
| 60 | (cl-letf (((symbol-function 'yes-or-no-p) | 60 | (lambda (_prompt) (eq ,yes-or-no 'yes)))) |
| 61 | (lambda (_prompt) (eq ,yes-or-no 'yes)))) | 61 | ,@body) |
| 62 | ,@body) | 62 | ,@body)))))) |
| 63 | ,@body))))))) | ||
| 64 | 63 | ||
| 65 | (ert-deftest dired-test-bug28834 () | 64 | (ert-deftest dired-test-bug28834 () |
| 66 | "test for https://debbugs.gnu.org/28834 ." | 65 | "test for https://debbugs.gnu.org/28834 ." |