From 5a46d415df75b8b0168e2cf48b30fe463c01a77c Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sun, 10 May 2026 02:44:10 -0500
Subject: 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.
---
 tests/test-reconcile--git-directory.el | 63 +++++++++++++++++++++-------------
 1 file changed, 40 insertions(+), 23 deletions(-)

(limited to 'tests/test-reconcile--git-directory.el')

diff --git a/tests/test-reconcile--git-directory.el b/tests/test-reconcile--git-directory.el
index ab4a6323..1999f706 100644
--- a/tests/test-reconcile--git-directory.el
+++ b/tests/test-reconcile--git-directory.el
@@ -18,13 +18,15 @@
    (let ((dir (expand-file-name "repo" test-root))
          (clean-called nil)
          (dirty-called nil))
-     (reconcile-test-with-shell-mocks
-         (lambda (_cmd) 0)
-         (lambda (cmd)
-           (cond ((string-match-p "remote.origin.url" cmd) "git@host:repo.git")
-                 ((string-match-p "status --porcelain" cmd) "")
-                 (t "")))
-       (cl-letf (((symbol-function 'cj/reconcile--pull-clean)
+    (reconcile-test-with-git-mock
+        (lambda (args)
+          (cond
+           ((equal args '("config" "--get" "remote.origin.url"))
+            '(:exit 0 :output "git@host:repo.git\n"))
+           ((equal args '("status" "--porcelain"))
+            '(:exit 0 :output ""))
+           (t '(:exit 0 :output ""))))
+      (cl-letf (((symbol-function 'cj/reconcile--pull-clean)
                   (lambda (_dir) (setq clean-called t)))
                  ((symbol-function 'cj/reconcile--pull-dirty)
                   (lambda (_dir) (setq dirty-called t)))
@@ -33,20 +35,22 @@
      (should clean-called)
      (should-not dirty-called))))
 
-(ert-deftest test-reconcile-git-directory-normal-dirty-repo-stashes ()
-  "Dirty SSH repo calls pull-dirty, not pull-clean."
+(ert-deftest test-reconcile-git-directory-normal-dirty-repo-opens-review ()
+  "Dirty SSH repo calls review-first handler, not pull-clean."
   (reconcile-test-with-temp-dirs
    ("repo/.git/")
    (let ((dir (expand-file-name "repo" test-root))
          (clean-called nil)
          (dirty-called nil))
-     (reconcile-test-with-shell-mocks
-         (lambda (_cmd) 0)
-         (lambda (cmd)
-           (cond ((string-match-p "remote.origin.url" cmd) "git@host:repo.git")
-                 ((string-match-p "status --porcelain" cmd) " M file.el\n")
-                 (t "")))
-       (cl-letf (((symbol-function 'cj/reconcile--pull-clean)
+    (reconcile-test-with-git-mock
+        (lambda (args)
+          (cond
+           ((equal args '("config" "--get" "remote.origin.url"))
+            '(:exit 0 :output "git@host:repo.git\n"))
+           ((equal args '("status" "--porcelain"))
+            '(:exit 0 :output " M file.el\n"))
+           (t '(:exit 0 :output ""))))
+      (cl-letf (((symbol-function 'cj/reconcile--pull-clean)
                   (lambda (_dir) (setq clean-called t)))
                  ((symbol-function 'cj/reconcile--pull-dirty)
                   (lambda (_dir) (setq dirty-called t)))
@@ -62,13 +66,12 @@
    (let ((dir (expand-file-name "repo" test-root))
          (clean-called nil)
          (dirty-called nil))
-     (reconcile-test-with-shell-mocks
-         (lambda (_cmd) 0)
-         (lambda (cmd)
-           (if (string-match-p "remote.origin.url" cmd)
-               "https://github.com/user/repo.git"
-             ""))
-       (cl-letf (((symbol-function 'cj/reconcile--pull-clean)
+    (reconcile-test-with-git-mock
+        (lambda (args)
+          (if (equal args '("config" "--get" "remote.origin.url"))
+              '(:exit 0 :output "https://github.com/user/repo.git\n")
+            '(:exit 0 :output "")))
+      (cl-letf (((symbol-function 'cj/reconcile--pull-clean)
                   (lambda (_dir) (setq clean-called t)))
                  ((symbol-function 'cj/reconcile--pull-dirty)
                   (lambda (_dir) (setq dirty-called t)))
@@ -77,6 +80,20 @@
      (should-not clean-called)
      (should-not dirty-called))))
 
+(ert-deftest test-reconcile-git-directory-normal-skipped-result-includes-reason ()
+  "Skipped repos return a structured reason."
+  (reconcile-test-with-temp-dirs
+   ("repo/.git/")
+   (let ((dir (expand-file-name "repo" test-root)))
+     (reconcile-test-with-git-mock
+         (lambda (args)
+           (if (equal args '("config" "--get" "remote.origin.url"))
+               '(:exit 0 :output "https://github.com/user/repo.git\n")
+             '(:exit 0 :output "")))
+       (let ((result (cj/reconcile-git-directory dir)))
+         (should (eq (plist-get result :status) 'skipped))
+         (should (eq (plist-get result :reason) 'skipped-remote)))))))
+
 ;;; Boundary Cases
 
 (ert-deftest test-reconcile-git-directory-boundary-emits-checking-message ()
-- 
cgit v1.2.3