diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/piem-rmail-tests.el | 10 | ||||
| -rw-r--r-- | tests/piem-tests.el | 28 |
2 files changed, 30 insertions, 8 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")))) diff --git a/tests/piem-tests.el b/tests/piem-tests.el index 79d8591..b612b96 100644 --- a/tests/piem-tests.el +++ b/tests/piem-tests.el @@ -74,7 +74,7 @@ (piem-merged-inboxes)))) (let ((piem-get-inboxes-from-config nil) (piem-inboxes '(("inbox" :url "inbox-url")))) - (should (equal (piem-inbox-get :url "inbox") "inbox-url")))) + (should (equal (piem-inbox-url "inbox") "inbox-url/")))) (ert-deftest piem-merged-inboxes:from-config () (piem-clear-merged-inboxes) @@ -83,8 +83,8 @@ (piem-tests-with-pi-config piem-tests-sample-pi-config (should (equal (piem-inbox-get :address "foo") "foo@example.com")) - (should (equal (piem-inbox-get :url "foo") - "https://example.com/foo")) + (should (equal (piem-inbox-url "foo") + "https://example.com/foo/")) (should (equal (piem-inbox-coderepo "foo") "/code/foo/"))) (piem-tests-with-pi-config "" @@ -179,12 +179,30 @@ (should-not (with-temp-buffer (piem--insert-message-id-header "msg@id"))) + (should-not + (string-match-p + "Message-ID: <msg@id>" + (with-temp-buffer + (insert "\ +From 0d732713af1f3fb48b37430e2cd0a3033cea14f3 Mon Sep 17 00:00:00 2001 +From: Foo Bar <f@example.com> +Message-ID: <existing@id> +Date: Fri, 22 Jan 2021 22:35:58 -0500 +Subject: [PATCH] a + +--- + a | 1 + + 1 file changed, 1 insertion(+) + create mode 100644 a") + (goto-char (point-min)) + (piem--insert-message-id-header "msg@id") + (buffer-string)))) (should (string-match-p (concat - (rx "Subject: [PATCH 1/2] a\nMessage-Id: <msg@id>\n" + (rx "Subject: [PATCH 1/2] a\nMessage-ID: <msg@id>\n" (one-or-more anychar) - "Subject: [PATCH 2/2] b\nMessage-Id: <msg@id>\n")) + "Subject: [PATCH 2/2] b\nMessage-ID: <msg@id>\n")) (with-temp-buffer (insert "\ From 0d732713af1f3fb48b37430e2cd0a3033cea14f3 Mon Sep 17 00:00:00 2001 |