diff options
Diffstat (limited to 'tests/piem-rmail-tests.el')
-rw-r--r-- | tests/piem-rmail-tests.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/piem-rmail-tests.el b/tests/piem-rmail-tests.el index a9b397b..7ee0a55 100644 --- a/tests/piem-rmail-tests.el +++ b/tests/piem-rmail-tests.el @@ -38,7 +38,7 @@ To: A <a@example.com> Cc: i@inbox.example.com Subject: Re: test Date: Sun, 23 May 2021 02:26:51 -0400 -Message-Id: <456@example.com> +Message-ID: <456@example.com> In-Reply-To: <123@example.com> References: <123@example.com> @@ -47,12 +47,16 @@ References: <123@example.com> no thanks ") +(defun piem-rmail-tests-rmail-mode () + (cl-letf (((symbol-function #'message) (lambda (&rest _)))) + (rmail-mode))) + (ert-deftest piem-rmail-get-inbox () (should (equal "foo" (with-temp-buffer (insert piem-rmail-tests-mbox-text) - (rmail-mode) + (piem-rmail-tests-rmail-mode) (let ((piem-get-inboxes-from-config nil) (piem-inboxes '(("foo" :address "i@inbox.example.com")))) (piem-rmail-get-inbox)))))) @@ -62,7 +66,7 @@ no thanks (equal (list "123@example.com" "456@example.com") (with-temp-buffer (insert piem-rmail-tests-mbox-text) - (rmail-mode) + (piem-rmail-tests-rmail-mode) (rmail-first-message) (let ((piem-get-inboxes-from-config nil) (piem-inboxes '(("foo" :address "i@inbox.example.com")))) |