From 6a1f3c119c3a67e781eacbd0756db83ba365c185 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 13 Jan 2014 11:53:36 +0100 Subject: [PATCH] Bug#13064 * automated/ert-tests.el (ert-test-record-backtrace): Reenable test case with adapted test string. (Bug#13064) --- test/ChangeLog | 5 +++++ test/automated/ert-tests.el | 22 ++++++++++------------ 2 files changed, 15 insertions(+), 12 deletions(-) diff --git a/test/ChangeLog b/test/ChangeLog index 1c26b408224..b14d038c9bc 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2014-01-13 Michael Albinus + + * automated/ert-tests.el (ert-test-record-backtrace): Reenable + test case with adapted test string. (Bug#13064) + 2013-12-28 Glenn Morris * automated/electric-tests.el: Require 'elec-pair. diff --git a/test/automated/ert-tests.el b/test/automated/ert-tests.el index 5d50bafd0da..53cbd1f1f88 100644 --- a/test/automated/ert-tests.el +++ b/test/automated/ert-tests.el @@ -375,18 +375,16 @@ This macro is used to test if macroexpansion in `should' works." (should-error (macroexpand '(ert-deftest ghi () :documentation "foo")))) -;; FIXME Test disabled due to persistent failure owing to lexical binding. -;; http://debbugs.gnu.org/13064 -;;; (ert-deftest ert-test-record-backtrace () -;;; (let ((test (make-ert-test :body (lambda () (ert-fail "foo"))))) -;;; (let ((result (ert-run-test test))) -;;; (should (ert-test-failed-p result)) -;;; (with-temp-buffer -;;; (ert--print-backtrace (ert-test-failed-backtrace result)) -;;; (goto-char (point-min)) -;;; (end-of-line) -;;; (let ((first-line (buffer-substring-no-properties (point-min) (point)))) -;;; (should (equal first-line " signal(ert-test-failed (\"foo\"))"))))))) +(ert-deftest ert-test-record-backtrace () + (let ((test (make-ert-test :body (lambda () (ert-fail "foo"))))) + (let ((result (ert-run-test test))) + (should (ert-test-failed-p result)) + (with-temp-buffer + (ert--print-backtrace (ert-test-failed-backtrace result)) + (goto-char (point-min)) + (end-of-line) + (let ((first-line (buffer-substring-no-properties (point-min) (point)))) + (should (equal first-line " (closure (ert--test-body-was-run t) nil (ert-fail \"foo\"))()"))))))) (ert-deftest ert-test-messages () :tags '(:causes-redisplay) -- 2.39.2