diff options
| author | Glenn Morris | 2018-02-17 07:50:28 -0800 |
|---|---|---|
| committer | Glenn Morris | 2018-02-17 07:50:28 -0800 |
| commit | 4fa90ff8f5fda54fc42049c990c52d3e5236fbe6 (patch) | |
| tree | 6c0a7893b3aab0166b35938338fa289c3a01df74 /test/src | |
| parent | cb3863370cbe574810f796726faa39ba0de0a429 (diff) | |
| parent | e5a29330aae4491fd384bacaff6f453c6434d322 (diff) | |
| download | emacs-4fa90ff8f5fda54fc42049c990c52d3e5236fbe6.tar.gz emacs-4fa90ff8f5fda54fc42049c990c52d3e5236fbe6.zip | |
Merge from origin/emacs-26
e5a2933 (origin/emacs-26) lisp/vc/: documentation fixes
f21f8e6 Document 'desktop-files-not-to-save'
d8917eb Improve documentation of Profiling features
b228839 Improve indexing of "performance" in ELisp manual
ab67b3e Minor change in Emacs manual's VC chapter
c352434 Avoid memory corruption with specpdl overflow + edebug (Bug#3...
593bbda Document comment-fill-column in the manual (Bug#11636)
bd4cc8d * doc/emacs/dired.texi (Marks vs Flags): Copyedits.
69107f3 ; Fix doc typos related to indefinite articles
aaad1e6 Merge branch 'emacs-26' of git.savannah.gnu.org:/srv/git/emac...
5906418 More fixes for the Emacs manual
9ab3df1 ; Fix doc typos related to indefinite articles
66a4e65 ; Fix doc typos related to indefinite articles
35e5c57 ; Fix doc typos related to indefinite articles
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/eval-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/src/eval-tests.el b/test/src/eval-tests.el index 201382da9c4..e68fd136113 100644 --- a/test/src/eval-tests.el +++ b/test/src/eval-tests.el | |||
| @@ -79,4 +79,24 @@ Bug#24912 and Bug#24913." | |||
| 79 | (let ((clauses (list '((progn (setcdr clauses "ouch") nil))))) | 79 | (let ((clauses (list '((progn (setcdr clauses "ouch") nil))))) |
| 80 | (should-error (eval (cons 'cond clauses))))) | 80 | (should-error (eval (cons 'cond clauses))))) |
| 81 | 81 | ||
| 82 | (defun eval-tests--exceed-specbind-limit () | ||
| 83 | (defvar eval-tests--var1) | ||
| 84 | (defvar eval-tests--var2) | ||
| 85 | ;; Bind two variables, to make extra sure we hit the | ||
| 86 | ;; `max-specpdl-size' limit before the `max-lisp-eval-depth' limit. | ||
| 87 | (let ((eval-tests--var1 1) | ||
| 88 | (eval-tests--var2 2)) | ||
| 89 | ;; Recurse until we hit the limit. | ||
| 90 | (eval-tests--exceed-specbind-limit))) | ||
| 91 | |||
| 92 | (ert-deftest eval-exceed-specbind-with-signal-hook () | ||
| 93 | "Test for Bug#30481. | ||
| 94 | Check that Emacs doesn't crash when exceeding specbind limit with | ||
| 95 | `signal-hook-function' bound. NOTE: Without the fix for | ||
| 96 | Bug#30481, this test can appear to pass, but cause a | ||
| 97 | crash/abort/malloc assert failure on the next test." | ||
| 98 | (let ((max-specpdl-size (/ max-lisp-eval-depth 2)) | ||
| 99 | (signal-hook-function #'ignore)) | ||
| 100 | (should-error (eval-tests--exceed-specbind-limit)))) | ||
| 101 | |||
| 82 | ;;; eval-tests.el ends here | 102 | ;;; eval-tests.el ends here |