* 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 5c3fea7e680520e819c7a154fcfeb2a39886844c..eb212f3c95726c7bb1911c5ac66894c3c77fb1f9 100644 (file)
--- 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