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.

diff --git a/test/lisp/simple-tests.el b/test/lisp/simple-tests.el
index d067f3e586e0d36a590a81920510ff0f4d93a772..6e48f11fc02309f93dbfd7896fc5a27f8761cf14 100644 (file)
--- 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"))))
 
 \f
 ;;; `transpose-sexps'