diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-merge.el | 14 | ||||
| -rw-r--r-- | tests/test-pearl-todo-keywords.el | 29 |
2 files changed, 38 insertions, 5 deletions
diff --git a/tests/test-pearl-merge.el b/tests/test-pearl-merge.el index e55127b..ba73cc6 100644 --- a/tests/test-pearl-merge.el +++ b/tests/test-pearl-merge.el @@ -38,11 +38,15 @@ `(let ((pearl-state-to-todo-mapping '(("Todo" . "TODO") ("In Progress" . "IN-PROGRESS") ("Done" . "DONE"))) (org-todo-keywords '((sequence "TODO" "IN-PROGRESS" "|" "DONE")))) - (with-temp-buffer - (insert ,content) - (org-mode) - (goto-char (point-min)) - ,@body))) + ;; the merge's derived-header rebuild gathers team states synchronously; + ;; stub it so the merge tests stay network-free (the header then derives + ;; from the displayed issues' own states) + (cl-letf (((symbol-function 'pearl--team-states) (lambda (_team-id) nil))) + (with-temp-buffer + (insert ,content) + (org-mode) + (goto-char (point-min)) + ,@body)))) (defun test-pearl-merge--issue (id title desc) "A normalized issue plist with ID, TITLE, and DESC for merge input." diff --git a/tests/test-pearl-todo-keywords.el b/tests/test-pearl-todo-keywords.el index b941b26..281beea 100644 --- a/tests/test-pearl-todo-keywords.el +++ b/tests/test-pearl-todo-keywords.el @@ -121,5 +121,34 @@ (let ((out (pearl--build-org-content '() '(:type filter :name "X" :filter nil) nil nil))) (should (string-match-p "^#\\+TODO: TODO IN-PROGRESS IN-REVIEW BACKLOG BLOCKED \\| DONE$" out)))) +;;; --update-derived-todo-header (merge-refresh, final-buffer scan) + +(ert-deftest test-pearl-update-derived-todo-header-covers-buffer-headings () + "The header rebuild scans the final buffer so every visible heading is declared." + (let ((org-todo-keywords '((sequence "TODO" "IN-PROGRESS" "|" "DONE")))) + (with-temp-buffer + (insert "#+STARTUP: show3levels\n#+TODO: TODO | DONE\n\n" + "* View\n" + "** IN-PROGRESS Issue A\n:PROPERTIES:\n:LINEAR-ID: a\n:LINEAR-STATE-TYPE: started\n:END:\n" + "** DONE Issue B\n:PROPERTIES:\n:LINEAR-ID: b\n:LINEAR-STATE-TYPE: completed\n:END:\n") + (org-mode) + ;; no team states passed -- the rebuild comes purely from the buffer scan + (pearl--update-derived-todo-header '()) + (goto-char (point-min)) + (should (re-search-forward "^#\\+TODO: IN-PROGRESS \\| DONE$" nil t))))) + +(ert-deftest test-pearl-update-derived-todo-header-classifies-legacy-by-done-keyword () + "A retained heading with no STATE-TYPE drawer is classified by org-done-keywords." + (let ((org-todo-keywords '((sequence "TODO" "|" "SHIPPED")))) + (with-temp-buffer + (insert "#+STARTUP: show3levels\n#+TODO: TODO | SHIPPED\n\n" + "* View\n" + "** SHIPPED Old Issue\n:PROPERTIES:\n:LINEAR-ID: a\n:END:\n") ; no STATE-TYPE + (org-mode) + (pearl--update-derived-todo-header '()) + (goto-char (point-min)) + ;; SHIPPED is an org done-keyword, so it lands on the done side + (should (re-search-forward "^#\\+TODO: *\\| SHIPPED$" nil t))))) + (provide 'test-pearl-todo-keywords) ;;; test-pearl-todo-keywords.el ends here |