diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/lread-tests.el | 12 |
1 files changed, 7 insertions, 5 deletions
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)." | |||
| 137 | (write-region "?) ?( ?; ?\" ?[ ?]" nil file-name) | 137 | (write-region "?) ?( ?; ?\" ?[ ?]" nil file-name) |
| 138 | (should (equal (load file-name nil :nomessage :nosuffix) t)) | 138 | (should (equal (load file-name nil :nomessage :nosuffix) t)) |
| 139 | (should (equal (lread-tests--last-message) | 139 | (should (equal (lread-tests--last-message) |
| 140 | (concat (format-message "Loading `%s': " file-name) | 140 | (format-message |
| 141 | "unescaped character literals " | 141 | (concat "Loading `%s': " |
| 142 | "`?\"', `?(', `?)', `?;', `?[', `?]' detected, " | 142 | "unescaped character literals " |
| 143 | "`?\\\"', `?\\(', `?\\)', `?\\;', `?\\[', `?\\]' " | 143 | "`?\"', `?(', `?)', `?;', `?[', `?]' detected, " |
| 144 | "expected!"))))) | 144 | "`?\\\"', `?\\(', `?\\)', `?\\;', `?\\[', `?\\]' " |
| 145 | "expected!") | ||
| 146 | file-name))))) | ||
| 145 | 147 | ||
| 146 | (ert-deftest lread-test-bug26837 () | 148 | (ert-deftest lread-test-bug26837 () |
| 147 | "Test for https://debbugs.gnu.org/26837 ." | 149 | "Test for https://debbugs.gnu.org/26837 ." |