* 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)
|
(lread--substitute-object-in-subtree x 1 t)
|
||||||
(should (eq x (cdr x)))))
|
(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
|
;;; lread-tests.el ends here
|
||||||
|
|
Loading…
Add table
Reference in a new issue