master eeab7b5cad: Fix simple-tests when run noninteractively

[Mattias Engdegård]

branch: master
commit eeab7b5cada942d973ce3c565069add6b7880261
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>

    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 d067f3e586..6e48f11fc0 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'