procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix test when running from test/lisp/subr-tests.elc

Browse source 
* test/lisp/subr-tests.el (subr-test-backtrace-simple-tests): Don't
assume a lambda expression will be `equal' to its quoted form.  That's
not true if the lambda expression has been compiled.
This commit is contained in:
Noam Postavsky 2017-07-15 12:12:17 -04:00
parent 30444c695a
commit 7a0fb00819
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/subr-tests.el
View file

@ -258,9 +258,9 @@ This exercises `backtrace-frame', and indirectly `mapbacktrace'."
(should (equal (mapbacktrace #'error unbound) nil)))
;; First frame is backtrace-related function
(should (equal (backtrace-frame 0) '(t backtrace-frame 0)))
(should (equal (catch 'ret
(mapbacktrace (lambda (&rest args) (throw 'ret args))))
'(t mapbacktrace ((lambda (&rest args) (throw 'ret args))) nil)))
(let ((throw-args (lambda (&rest args) (throw 'ret args))))
(should (equal (catch 'ret (mapbacktrace throw-args))
`(t mapbacktrace (,throw-args) nil))))
;; Past-end NFRAMES is silently ignored
(should (equal (backtrace-frame most-positive-fixnum) nil)))