diff options
| -rw-r--r-- | test/lisp/emacs-lisp/bytecomp-tests.el | 4 | ||||
| -rw-r--r-- | test/src/lread-tests.el | 12 |
2 files changed, 10 insertions, 6 deletions
diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el index 2fdf7389fc1..4b0a714e52d 100644 --- a/test/lisp/emacs-lisp/bytecomp-tests.el +++ b/test/lisp/emacs-lisp/bytecomp-tests.el @@ -1213,7 +1213,8 @@ byte-compiled. Run with dynamic binding." literals (Bug#20852)." (should (boundp 'lread--unescaped-character-literals)) (let ((byte-compile-error-on-warn t) - (byte-compile-debug t)) + (byte-compile-debug t) + (text-quoting-style 'grave)) (bytecomp-tests--with-temp-file source (write-region "(list ?) ?( ?; ?\" ?[ ?])" nil source) (bytecomp-tests--with-temp-file destination @@ -1332,6 +1333,7 @@ literals (Bug#20852)." (defun test-suppression (form suppress match) (let ((lexical-binding t) + (text-quoting-style 'grave) (byte-compile-log-buffer (generate-new-buffer " *Compile-Log*"))) ;; Check that we get a warning without suppression. (with-current-buffer byte-compile-log-buffer diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index 459a06a39b6..c0ea37d2c55 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el @@ -137,11 +137,13 @@ literals (Bug#20852)." (write-region "?) ?( ?; ?\" ?[ ?]" nil file-name) (should (equal (load file-name nil :nomessage :nosuffix) t)) (should (equal (lread-tests--last-message) - (concat (format-message "Loading `%s': " file-name) - "unescaped character literals " - "`?\"', `?(', `?)', `?;', `?[', `?]' detected, " - "`?\\\"', `?\\(', `?\\)', `?\\;', `?\\[', `?\\]' " - "expected!"))))) + (format-message + (concat "Loading `%s': " + "unescaped character literals " + "`?\"', `?(', `?)', `?;', `?[', `?]' detected, " + "`?\\\"', `?\\(', `?\\)', `?\\;', `?\\[', `?\\]' " + "expected!") + file-name))))) (ert-deftest lread-test-bug26837 () "Test for https://debbugs.gnu.org/26837 ." |