diff options
| author | Philipp Stephani | 2017-10-09 16:08:15 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2017-10-09 16:08:15 +0200 |
| commit | 6abff55b5514515c5a28397b34aee478926af232 (patch) | |
| tree | c7d722049149ad0182c86dc1ac20d72df74f4f7f /test/src | |
| parent | 2c39565dc046d428127735552db6e7814631d4d4 (diff) | |
| download | emacs-6abff55b5514515c5a28397b34aee478926af232.tar.gz emacs-6abff55b5514515c5a28397b34aee478926af232.zip | |
Revert "Raise an error when detecting old-style backquotes."
This reverts commit 9613690f6e51e2f2aa2bcbbede3e209d08cfaaad.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/lread-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index 3f41982eba1..ac730b4f005 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el | |||
| @@ -173,13 +173,13 @@ literals (Bug#20852)." | |||
| 173 | (should (string-suffix-p "/somelib.el" (caar load-history))))) | 173 | (should (string-suffix-p "/somelib.el" (caar load-history))))) |
| 174 | 174 | ||
| 175 | (ert-deftest lread-tests--old-style-backquotes () | 175 | (ert-deftest lread-tests--old-style-backquotes () |
| 176 | "Check that loading doesn't accept old-style backquotes." | 176 | "Check that loading warns about old-style backquotes." |
| 177 | (lread-tests--with-temp-file file-name | 177 | (lread-tests--with-temp-file file-name |
| 178 | (write-region "(` (a b))" nil file-name) | 178 | (write-region "(` (a b))" nil file-name) |
| 179 | (let ((data (should-error (load file-name nil :nomessage :nosuffix)))) | 179 | (should (equal (load file-name nil :nomessage :nosuffix) t)) |
| 180 | (should (equal (cdr data) | 180 | (should (equal (lread-tests--last-message) |
| 181 | (list (concat (format-message "Loading `%s': " file-name) | 181 | (concat (format-message "Loading `%s': " file-name) |
| 182 | "old-style backquotes detected!"))))))) | 182 | "old-style backquotes detected!"))))) |
| 183 | 183 | ||
| 184 | (ert-deftest lread-lread--substitute-object-in-subtree () | 184 | (ert-deftest lread-lread--substitute-object-in-subtree () |
| 185 | (let ((x (cons 0 1))) | 185 | (let ((x (cons 0 1))) |