mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-20 21:11:18 -07:00
Code Issues Projects Releases Wiki Activity

Remove max-specpdl-size overrun test

Browse source 
* test/src/eval-tests.el (eval-tests--exceed-specbind-limit)
(eval-exceed-specbind-with-signal-hook): Remove test that is
no longer useful, since there is no longer any specpdl limit
to overrun.  (The test still passed but vacuously so, by
hitting the max-lisp-eval-depth limit instead.)
This silences an obsoletion warning.
This commit is contained in:
Mattias Engdegård 2022-09-23 15:26:13 +02:00
parent c53f5a2176
commit 47b986d488
1 changed files with 0 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

20
test/src/eval-tests.el
View file

@ -108,26 +108,6 @@ Bug#24912."
(should-error (eval (cons 'cond clauses) nil))
(should-error (eval (cons 'cond clauses) t))))
(defun eval-tests--exceed-specbind-limit ()
(defvar eval-tests--var1)
(defvar eval-tests--var2)
;; Bind two variables, to make extra sure we hit the
;; `max-specpdl-size' limit before the `max-lisp-eval-depth' limit.
(let ((eval-tests--var1 1)
(eval-tests--var2 2))
;; Recurse until we hit the limit.
(eval-tests--exceed-specbind-limit)))
(ert-deftest eval-exceed-specbind-with-signal-hook ()
"Test for Bug#30481.
Check that Emacs doesn't crash when exceeding specbind limit with
`signal-hook-function' bound. NOTE: Without the fix for
Bug#30481, this test can appear to pass, but cause a
crash/abort/malloc assert failure on the next test."
(let ((max-specpdl-size (/ max-lisp-eval-depth 2))
(signal-hook-function #'ignore))
(should-error (eval-tests--exceed-specbind-limit))))
(ert-deftest defvar/bug31072 ()
"Check that Bug#31072 is fixed."
(should-error (eval '(defvar 1) t) :type 'wrong-type-argument))