[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a9e7ae3: Remove lread tests for a feature that was deleted
From: |
Glenn Morris |
Subject: |
master a9e7ae3: Remove lread tests for a feature that was deleted |
Date: |
Fri, 14 Feb 2020 14:11:15 -0500 (EST) |
branch: master
commit a9e7ae39cec00eaeff58c15a885c08ffbddbcab4
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
Remove lread tests for a feature that was deleted
* test/src/lread-tests.el (lread-tests--old-style-backquotes)
(lread-tests--force-new-style-backquotes): Remove.
---
test/src/lread-tests.el | 16 ----------------
1 file changed, 16 deletions(-)
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index 1426b01..6efd8be 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -157,22 +157,6 @@ literals (Bug#20852)."
(load "somelib" nil t)
(should (string-suffix-p "/somelib.el" (caar load-history)))))
-(ert-deftest lread-tests--old-style-backquotes ()
- "Check that loading doesn't accept old-style backquotes."
- (lread-tests--with-temp-file file-name
- (write-region "(` (a b))" nil file-name)
- (let ((data (should-error (load file-name nil :nomessage :nosuffix))))
- (should (equal (cdr data)
- (list (concat (format-message "Loading `%s': " file-name)
- "old-style backquotes detected!")))))))
-
-(ert-deftest lread-tests--force-new-style-backquotes ()
- (let ((data (should-error (read "(` (a b))"))))
- (should (equal (cdr data) '("Old-style backquotes detected!"))))
- (should (equal (let ((force-new-style-backquotes t))
- (read "(` (a b))"))
- '(`(a b)))))
-
(ert-deftest lread-lread--substitute-object-in-subtree ()
(let ((x (cons 0 1)))
(setcar x x)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master a9e7ae3: Remove lread tests for a feature that was deleted,
Glenn Morris <=