From: Philipp Stephani <phst@google.com>
Date: Tue, 24 Nov 2020 17:38:36 +0000 (+0100)
Subject: Add a (broken) unit test to exemplify Bug#11218.
X-Git-Tag: emacs-28.0.90~5038
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5804ac0b49a9b98daa7eea5fbb94942601cd088c;p=emacs.git

Add a (broken) unit test to exemplify Bug#11218.

* test/lisp/emacs-lisp/ert-tests.el
(ert-test-with-demoted-errors): New (broken) unit test.
---

diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el
index 96189356c02..1f54c8d07e4 100644
--- a/test/lisp/emacs-lisp/ert-tests.el
+++ b/test/lisp/emacs-lisp/ert-tests.el
@@ -801,6 +801,11 @@ This macro is used to test if macroexpansion in `should' works."
     (should (eql 0 (ert-stats-completed-unexpected stats)))
     (should (eql 1 (ert-stats-skipped stats)))))
 
+(ert-deftest ert-test-with-demoted-errors ()
+  "Check that ERT correctly handles `with-demoted-errors'."
+  :expected-result :failed  ;; FIXME!  Bug#11218
+  (should-not (with-demoted-errors (error "Foo"))))
+
 
 (provide 'ert-tests)