From 5ecbed01b2a53d10d11996003896c685f8e5f41b Mon Sep 17 00:00:00 2001 From: Stephen Gildea Date: Fri, 22 Oct 2021 08:45:57 -0700 Subject: [PATCH] ; * test/lisp/mh-e/mh-utils-tests.el: Update macro declarations. --- test/lisp/mh-e/mh-utils-tests.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))) -- 2.39.2