diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/piem-rmail-tests.el | 73 | ||||
| -rw-r--r-- | tests/piem-tests.el | 1 |
2 files changed, 74 insertions, 0 deletions
diff --git a/tests/piem-rmail-tests.el b/tests/piem-rmail-tests.el new file mode 100644 index 0000000..b489594 --- /dev/null +++ b/tests/piem-rmail-tests.el @@ -0,0 +1,73 @@ +;;; piem-rmail-tests.el --- tests for piem-rmail -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 all contributors <piem@inbox.kyleam.com> + +;; Author: Kyle Meyer <kyle@kyleam.com> + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Code: + +(require 'ert) +(require 'piem-rmail) + +(defvar piem-rmail-tests-mbox-text "\ +From mboxrd@z Thu Jan 1 00:00:00 1970 +From: A <a@example.com> +To: i@inbox.example.com +Subject: test +Date: Sun, 23 May 2021 02:26:01 -0400 +Message-ID: <123@example.com> + +test body + +From mboxrd@z Thu Jan 1 00:00:00 1970 +From: b <b@example.com> +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> +In-Reply-To: <123@example.com> +References: <123@example.com> + +> test body + +no thanks +") + +(ert-deftest piem-rmail-get-inbox () + (should + (equal "foo" + (with-temp-buffer + (insert piem-rmail-tests-mbox-text) + (rmail-mode) + (let ((piem-inboxes '(("foo" :address "i@inbox.example.com")))) + (piem-rmail-get-inbox)))))) + +(ert-deftest piem-rmail-get-mid () + (should + (equal (list "123@example.com" "456@example.com") + (with-temp-buffer + (insert piem-rmail-tests-mbox-text) + (rmail-mode) + (rmail-first-message) + (let ((piem-inboxes '(("foo" :address "i@inbox.example.com")))) + (list (piem-rmail-get-mid) + (progn + (rmail-next-message 1) + (piem-rmail-get-mid)))))))) + +(provide 'piem-rmail-tests) +;;; piem-rmail-tests.el ends here diff --git a/tests/piem-tests.el b/tests/piem-tests.el index 969c9d0..5f01a5e 100644 --- a/tests/piem-tests.el +++ b/tests/piem-tests.el @@ -21,6 +21,7 @@ (require 'ert) (require 'piem) +(require 'piem-rmail-tests) (ert-deftest piem-message-link-re () (should-not (string-match-p |