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

Fix simple-tests when run noninteractively

Browse source 
* test/lisp/simple-tests.el
(simple-execute-extended-command--describe-binding-msg):
Bind text-quoting-style explicitly to ensure consistent behaviour
whether or not the test is run interactively.
This commit is contained in:
Mattias Engdegård 2022-11-18 12:09:46 +01:00
parent 7571768c6c
commit eeab7b5cad
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
test/lisp/simple-tests.el
View file

@ -85,15 +85,16 @@
"di-n")))
(ert-deftest simple-execute-extended-command--describe-binding-msg ()
(should (equal (execute-extended-command--describe-binding-msg
'foo "m" nil)
"You can run the command ‘foo’ with m"))
(should (equal (execute-extended-command--describe-binding-msg
'foo [14] nil)
"You can run the command ‘foo’ with C-n"))
(should (equal (execute-extended-command--describe-binding-msg
'display-line-numbers-mode nil "di-n")
"You can run the command ‘display-line-numbers-mode’ with M-x di-n")))
(let ((text-quoting-style 'grave))
(should (equal (execute-extended-command--describe-binding-msg
'foo "m" nil)
"You can run the command `foo' with m"))
(should (equal (execute-extended-command--describe-binding-msg
'foo [14] nil)
"You can run the command `foo' with C-n"))
(should (equal (execute-extended-command--describe-binding-msg
'display-line-numbers-mode nil "di-n")
"You can run the command `display-line-numbers-mode' with M-x di-n"))))
;;; `transpose-sexps'