procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the latest dabbrev-expand test fix

Browse source 
* 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.
This commit is contained in:
Stephen Berman 2024-12-03 10:38:26 +01:00
parent e618d5ae94
commit 7b8d12e95d
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
test/lisp/dabbrev-tests.el
View file

@ -294,9 +294,14 @@ leaving the unexpanded string in the buffer." ; See bug#74090.
(should (string= (buffer-string) "abc abd")) (should (string= (buffer-string) "abc abd"))
(kill-buffer "foo") (kill-buffer "foo")
(erase-buffer) (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)))) :type 'user-error))))
(should (string= (buffer-string) "abc ab")) (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 ;;; dabbrev-tests.el ends here