From: Stephen Gildea <stepheng+emacs@gildea.com>
Date: Fri, 22 Oct 2021 15:45:57 +0000 (-0700)
Subject: ; * test/lisp/mh-e/mh-utils-tests.el: Update macro declarations.
X-Git-Tag: emacs-28.0.90~208
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5ecbed01b2a53d10d11996003896c685f8e5f41b;p=emacs.git

; * test/lisp/mh-e/mh-utils-tests.el: Update macro declarations.
---

diff --git a/test/lisp/mh-e/mh-utils-tests.el b/test/lisp/mh-e/mh-utils-tests.el
index a10c29fcf71..ed979232a41 100644
--- a/test/lisp/mh-e/mh-utils-tests.el
+++ b/test/lisp/mh-e/mh-utils-tests.el
@@ -110,7 +110,7 @@ can log the choice only once, which makes the batch log easier to read.")
 Functions that touch the file system or run MH programs are either
 mocked out or pointed at a test tree.  Uses `mh-test-utils-setup' to
 select which."
-  (declare (indent defun))
+  (declare (indent 0) (debug t))
   `(cl-letf ((temp-home-dir nil)
              ;; make local bindings for things we will modify for test env
              (mh-user-path)
@@ -374,6 +374,7 @@ values for the FLAG argument of `mh-folder-completion-function'.
 NIL-EXPECTED is the expected value with FLAG nil.
 T-EXPECTED is the expected value with FLAG t.
 LAMBDA-EXPECTED is the expected value with FLAG lambda."
+  (declare (debug t))
   `(with-mh-test-env
      (mh-test-folder-completion-2 ,nil-expected ;case "a"
                                   (mh-folder-completion-function ,name nil nil))
@@ -388,6 +389,7 @@ LAMBDA-EXPECTED is the expected value with FLAG lambda."
 ACTUAL should evaluate to either EXPECTED or to a list containing EXPECTED.
 ACTUAL may be evaluated twice, but this gives a clearer error on failure,
 and the `should' macro requires idempotent evaluation anyway."
+  (declare (debug t))
   `(if (and (not (consp ,expected)) (consp ,actual))
        (should (member ,expected ,actual))
      (should (equal ,expected ,actual))))