From 205f45561c2f19b17b11a5c0168568ecceae4008 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 27 May 2021 19:27:14 -0400 Subject: Add basic integration for Rmail Teach piem how to get the associated inbox and message ID for the current Rmail message. Message-Id: <20210527232714.8726-1-kyle@kyleam.com> --- tests/piem-rmail-tests.el | 73 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 tests/piem-rmail-tests.el (limited to 'tests/piem-rmail-tests.el') 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 + +;; Author: Kyle Meyer + +;; 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 . + +;;; Code: + +(require 'ert) +(require 'piem-rmail) + +(defvar piem-rmail-tests-mbox-text "\ +From mboxrd@z Thu Jan 1 00:00:00 1970 +From: A +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 +To: A +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 -- cgit v1.2.3