aboutsummaryrefslogtreecommitdiff
path: root/tests/test-reconcile--check-for-open-work.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-05-10 02:44:10 -0500
committerCraig Jennings <c@cjennings.net>2026-05-10 02:44:10 -0500
commit5a46d415df75b8b0168e2cf48b30fe463c01a77c (patch)
tree72c1f8d75b2fb4a020a46f4d3b97778ca65fb331 /tests/test-reconcile--check-for-open-work.el
parent2afb005af6272b1b4229b377db0423dca045732f (diff)
downloaddotemacs-5a46d415df75b8b0168e2cf48b30fe463c01a77c.tar.gz
dotemacs-5a46d415df75b8b0168e2cf48b30fe463c01a77c.zip
Make repo reconciliation review-first
Stop automatically stashing, pulling, and popping dirty repos during reconciliation. Clean repos still pull, dirty repos open Magit for review, and results now include structured statuses, skip reasons, pruning, and a summary.
Diffstat (limited to 'tests/test-reconcile--check-for-open-work.el')
-rw-r--r--tests/test-reconcile--check-for-open-work.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/test-reconcile--check-for-open-work.el b/tests/test-reconcile--check-for-open-work.el
index e4615dab..37a5d0a3 100644
--- a/tests/test-reconcile--check-for-open-work.el
+++ b/tests/test-reconcile--check-for-open-work.el
@@ -177,5 +177,19 @@ Regression: lexical-binding + `(boundp 'base-dir)' used to silently skip this."
(cj/check-for-open-work))
(should (cl-some (lambda (m) (string-match-p "Complete\\." m)) messages)))))
+(ert-deftest test-reconcile-check-for-open-work-normal-summary-counts-statuses ()
+ "Summary reports pulled, review, skipped, and failed counts."
+ (let ((summary (cj/reconcile--summary-message
+ '((:status pulled)
+ (:status needs-review)
+ (:status skipped :reason skipped-remote)
+ (:status pull-failed)
+ (:status status-failed)))))
+ (should (string-match-p "Repositories checked: 5" summary))
+ (should (string-match-p "pulled: 1" summary))
+ (should (string-match-p "needs review: 1" summary))
+ (should (string-match-p "skipped: 1" summary))
+ (should (string-match-p "failed: 2" summary))))
+
(provide 'test-reconcile--check-for-open-work)
;;; test-reconcile--check-for-open-work.el ends here