diff options
| author | Mattias Engdegård <mattiase@acm.org> | 2022-11-18 12:09:46 +0100 |
|---|---|---|
| committer | Mattias Engdegård <mattiase@acm.org> | 2022-11-18 12:12:09 +0100 |
| commit | eeab7b5cada942d973ce3c565069add6b7880261 (patch) | |
| tree | 3c9fcf9309c7341d5dadc49a7039588cbde6339c | |
| parent | 7571768c6c37d6202f65f18dff33f485a04729fb (diff) | |
| download | emacs-eeab7b5cada942d973ce3c565069add6b7880261.tar.gz | |
Fix simple-tests when run noninteractively
* 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.
| -rw-r--r-- | test/lisp/simple-tests.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el index d067f3e586e..6e48f11fc02 100644 --- a/test/lisp/simple-tests.el +++ b/test/lisp/simple-tests.el @@ -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' |