* test/src/lread-tests.el (lread-test-bug-31186): New test.
This commit is contained in:
parent
3fa472b487
commit
a539eb51ac
1 changed files with 8 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue