From b081d62276378b3168c92c06153fd59db0589535 Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Sun, 24 May 2026 13:44:34 -0500 Subject: feat: pearl — manage Linear issues from org-mode MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Pearl fetches Linear issues into an org file and syncs edits back. It covers list / custom views / saved queries, per-issue and bulk rendering with comments inline, conflict-aware sync of descriptions, titles, and comments, field commands for priority / state / assignee / labels, and a transient dispatch menu. The render folds to a scannable outline and nests issues under a sortable parent. Based on and inspired by Gael Blanchemain's linear-emacs. --- tests/test-pearl-delete.el | 97 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 97 insertions(+) create mode 100644 tests/test-pearl-delete.el (limited to 'tests/test-pearl-delete.el') diff --git a/tests/test-pearl-delete.el b/tests/test-pearl-delete.el new file mode 100644 index 0000000..bd412c7 --- /dev/null +++ b/tests/test-pearl-delete.el @@ -0,0 +1,97 @@ +;;; test-pearl-delete.el --- Tests for deleting an issue -*- lexical-binding: t; -*- + +;; Copyright (C) 2026 Craig Jennings + +;; Author: Craig Jennings + +;; 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 . + +;;; Commentary: + +;; Tests for `pearl--delete-issue-async' (the issueDelete mutation, +;; stubbed) and `pearl-delete-current-issue', which confirms, deletes, +;; and removes the issue subtree from the buffer on success. + +;;; Code: + +(require 'test-bootstrap (expand-file-name "test-bootstrap.el")) +(require 'testutil-request (expand-file-name "testutil-request.el")) +(require 'cl-lib) + +(defmacro test-pearl--in-org (content &rest body) + "Run BODY in an org-mode temp buffer holding CONTENT at point-min." + (declare (indent 1)) + `(with-temp-buffer + (insert ,content) + (org-mode) + (goto-char (point-min)) + ,@body)) + +;;; --delete-issue-async + +(ert-deftest test-pearl-delete-issue-async-success () + "A successful issueDelete reports success." + (testutil-linear-with-response + '((data (issueDelete (success . t)))) + (let (result) + (pearl--delete-issue-async "id-1" (lambda (r) (setq result r))) + (should (eq t (plist-get result :success)))))) + +(ert-deftest test-pearl-delete-issue-async-soft-fail () + "A non-success issueDelete reports failure rather than erroring." + (testutil-linear-with-response + '((data (issueDelete (success . :json-false)))) + (let ((called nil) result) + (pearl--delete-issue-async "id-1" (lambda (r) (setq called t result r))) + (should called) + (should-not (plist-get result :success))))) + +;;; delete-current-issue + +(ert-deftest test-pearl-delete-current-issue-confirmed-removes-subtree () + "Confirming the delete removes the issue subtree from the buffer." + (test-pearl--in-org + "* Header\n\n*** TODO ENG-1 Doomed\n:PROPERTIES:\n:LINEAR-ID: a\n:LINEAR-IDENTIFIER: ENG-1\n:END:\nbody\n*** TODO ENG-2 Survivor\n:PROPERTIES:\n:LINEAR-ID: b\n:END:\n" + (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) t)) + ((symbol-function 'pearl--delete-issue-async) + (lambda (_id cb) (funcall cb '(:success t))))) + (re-search-forward "Doomed") + (pearl-delete-current-issue) + (goto-char (point-min)) + (should-not (re-search-forward "Doomed" nil t)) + ;; the sibling issue is untouched + (goto-char (point-min)) + (should (re-search-forward "Survivor" nil t))))) + +(ert-deftest test-pearl-delete-current-issue-declined-keeps-subtree () + "Declining the confirmation makes no API call and leaves the subtree." + (let ((called nil)) + (test-pearl--in-org + "*** TODO ENG-1 Keepme\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\nbody\n" + (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) nil)) + ((symbol-function 'pearl--delete-issue-async) + (lambda (&rest _) (setq called t)))) + (pearl-delete-current-issue) + (should-not called) + (goto-char (point-min)) + (should (re-search-forward "Keepme" nil t)))))) + +(ert-deftest test-pearl-delete-current-issue-not-on-issue-errors () + "Deleting outside a Linear issue heading signals a user error." + (test-pearl--in-org "* Plain heading\nno id\n" + (cl-letf (((symbol-function 'yes-or-no-p) (lambda (&rest _) t))) + (should-error (pearl-delete-current-issue) :type 'user-error)))) + +(provide 'test-pearl-delete) +;;; test-pearl-delete.el ends here -- cgit v1.2.3