From a9e7ae39cec00eaeff58c15a885c08ffbddbcab4 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 14 Feb 2020 11:10:55 -0800 Subject: 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(-) (limited to 'test') diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index 1426b0145e0..6efd8bed302 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) -- cgit v1.2.1