diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2018-04-17 18:40:41 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2018-04-17 18:40:41 +0300 |
| commit | a539eb51acb0478f74325fee0080a05e76b795c6 (patch) | |
| tree | 680816d744db5100b24ff0972981f2077475e897 /test/src | |
| parent | 3fa472b4873b395e6f9400884ee22b66c0a86966 (diff) | |
| download | emacs-a539eb51acb0478f74325fee0080a05e76b795c6.tar.gz emacs-a539eb51acb0478f74325fee0080a05e76b795c6.tar.bz2 emacs-a539eb51acb0478f74325fee0080a05e76b795c6.zip | |
* test/src/lread-tests.el (lread-test-bug-31186): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/lread-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
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 |