From eeab7b5cada942d973ce3c565069add6b7880261 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mattias=20Engdeg=C3=A5rd?= Date: Fri, 18 Nov 2022 12:09:46 +0100 Subject: [PATCH] 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. --- test/lisp/simple-tests.el | 19 ++++++++++--------- 1 file 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'