From 7a0fb008193960a7605e32bf0e72e8410e44f575 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 15 Jul 2017 12:12:17 -0400 Subject: [PATCH] Fix test when running from test/lisp/subr-tests.elc * 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. --- test/lisp/subr-tests.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 54f4ab5d1b2..7e50429a5bf 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el @@ -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))) -- 2.39.5