From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 17 Apr 2018 15:40:41 +0000 (+0300)
Subject: * test/src/lread-tests.el (lread-test-bug-31186): New test.
X-Git-Tag: emacs-26.1~71
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a539eb5;p=emacs.git

* test/src/lread-tests.el (lread-test-bug-31186): New test.
---

diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el
index 5c3fea7e680..eb212f3c957 100644
--- a/test/src/lread-tests.el
+++ b/test/src/lread-tests.el
@@ -170,4 +170,12 @@ literals (Bug#20852)."
     (lread--substitute-object-in-subtree x 1 t)
     (should (eq x (cdr x)))))
 
+(ert-deftest lread-test-bug-31186 ()
+  (with-temp-buffer
+    (insert ";; -*- -:*-")
+    (should-not
+     ;; This used to crash in lisp_file_lexically_bound_p before the
+     ;; bug was fixed.
+     (eval-buffer))))
+
 ;;; lread-tests.el ends here