From: Stephen Berman Date: Tue, 3 Dec 2024 09:38:26 +0000 (+0100) Subject: Fix the latest dabbrev-expand test fix X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~226 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=7b8d12e95de6e6b5239c538ad6f5af96dc3e1c2a;p=emacs.git Fix the latest dabbrev-expand test fix * test/lisp/dabbrev-tests.el (dabbrev-expand-after-killing-buffer): In batch runs of this file, the user-error message contains curved quotes, but grave quotes when running `make check' (so here was evidently not passed to `substitute-command-keys'), so use grave quotes so the test succeeds in both modes of execution. --- diff --git a/test/lisp/dabbrev-tests.el b/test/lisp/dabbrev-tests.el index 3e84024698f..fb8715924d1 100644 --- a/test/lisp/dabbrev-tests.el +++ b/test/lisp/dabbrev-tests.el @@ -294,9 +294,14 @@ leaving the unexpanded string in the buffer." ; See bug#74090. (should (string= (buffer-string) "abc abd")) (kill-buffer "foo") (erase-buffer) - (let ((msg (cadr (should-error (execute-kbd-macro (kbd "abc SPC ab M-/ M-/")) + ;; In batch runs of this file, the user-error message contains curved + ;; quotes, but grave quotes when running `make check' (so here was + ;; evidently not passed to `substitute-command-keys'), so use grave + ;; quotes so the test succeeds in both modes of execution. + (let* ((text-quoting-style 'grave) + (msg (cadr (should-error (execute-kbd-macro (kbd "abc SPC ab M-/ M-/")) :type 'user-error)))) (should (string= (buffer-string) "abc ab")) - (should (string= msg "No further dynamic expansion for ‘ab’ found"))))) + (should (string= msg "No further dynamic expansion for `ab' found"))))) ;;; dabbrev-tests.el ends here