diff options
| author | Mattias Engdegård | 2023-03-29 22:16:37 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2023-03-29 22:18:28 +0200 |
| commit | 560c27a332cf3739fc0b2bab7ad3118cd6998f12 (patch) | |
| tree | 6dbacaecd0931ee9b7eb7c7c5b0b2dc66965d837 /test | |
| parent | bfa3500c3c6e4df58978e84753718cd5358c06fb (diff) | |
| download | emacs-560c27a332cf3739fc0b2bab7ad3118cd6998f12.tar.gz emacs-560c27a332cf3739fc0b2bab7ad3118cd6998f12.zip | |
; * test/lisp/dired-aux-tests.el: remove mistaken unwind-protect
Diffstat (limited to 'test')
| -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 ." |