diff options
Diffstat (limited to 'tests/piem-tests.el')
| -rw-r--r-- | tests/piem-tests.el | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/tests/piem-tests.el b/tests/piem-tests.el new file mode 100644 index 0000000..346f9e1 --- /dev/null +++ b/tests/piem-tests.el @@ -0,0 +1,104 @@ +;;; piem-tests.el --- tests for piem -*- lexical-binding: t; -*- + +;; Copyright (C) 2021 Kyle Meyer + +;; 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) + +(ert-deftest piem-message-link-re () + (should-not (string-match-p + (piem-message-link-re "https://example.com/inbox") + "https://example.com/inbox")) + (should (string-match-p + (piem-message-link-re "https://example.com/inbox") + "https://example.com/inbox/msg@id/")) + (should-not (string-match-p + (piem-message-link-re "https://example.com/inbox" "msg@id1") + "https://example.com/inbox/msg@id/")) + (should (string-match-p + (piem-message-link-re "https://example.com/inbox/") + "https://example.com/inbox/msg@id/T/#t")) + (should (string-match-p + (piem-message-link-re "https://example.com/inbox/") + "https://example.com/inbox/msg@id/T/#r53974723fd9")) + (should (string-match-p + (piem-message-link-re "https://example.com/inbox/") + "https://example.com/inbox/msg@id/T/#r53974723fd9")) + (should (string-match-p + (piem-message-link-re "https://example.com/inbox/") + "https://example.com/inbox/msg@id/t/#ma0d6f35c094"))) + +(ert-deftest piem-escape-mid () + (should (equal (piem-escape-mid "msg@id") "msg@id")) + (should (equal (piem-escape-mid "m/g@id") "m%2Fg@id"))) + +(ert-deftest piem-name-branch-who-what-v () + (should (equal (piem-name-branch-who-what-v + (list :from "Foo Bar <f@example.com>" + :subject "[PATCH] Do a thing")) + "fb/do-thing")) + (should (equal (piem-name-branch-who-what-v + (list :from "Foo <f@example.com>" + :subject "[PATCH] Do a thing")) + "f/do-thing")) + (should (equal (piem-name-branch-who-what-v + (list :from "Foo Bar <f@example.com>" + :subject "[PATCH v3] Do a thing")) + "fb/do-thing__v3")) + (should-not (piem-name-branch-who-what-v + (list :from "Foo Bar <xyz.com>")))) + +(ert-deftest piem--insert-message-id-header () + (should-not + (with-temp-buffer + (piem--insert-message-id-header "msg@id"))) + (should + (string-match-p + (concat + (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")) + (with-temp-buffer + (insert "\ +From 0d732713af1f3fb48b37430e2cd0a3033cea14f3 Mon Sep 17 00:00:00 2001 +From: Foo Bar <f@example.com> +Date: Fri, 22 Jan 2021 22:35:58 -0500 +Subject: [PATCH 1/2] a + +--- + a | 1 + + 1 file changed, 1 insertion(+) + create mode 100644 a + +From 7b2433ead6d8d10bff3325cb3719a316ddb52392 Mon Sep 17 00:00:00 2001 +From: Foo Bar <f@example.com> +Date: Fri, 22 Jan 2021 22:36:09 -0500 +Subject: [PATCH 2/2] b + +--- + b | 1 + + 1 file changed, 1 insertion(+) + create mode 100644 b") + (goto-char (point-min)) + (piem--insert-message-id-header "msg@id") + (buffer-string))))) + +(provide 'piem-tests) +;;; piem-tests.el ends here |