refactor(reconcile): extract helpers, add recursive repo discovery and 28 tests

Extract should-skip-p, pull-clean, pull-dirty from 6-level nested
reconcile-git-directory. Make find-git-repos recurse into sub-repos.

1 files changed, 57 insertions, 0 deletions

diff --git a/tests/testutil-reconcile-open-repos.el b/tests/testutil-reconcile-open-repos.el
new file mode 100644
index 00000000..2d8614eb
--- /dev/null
+++ b/tests/testutil-reconcile-open-repos.el
@@ -0,0 +1,57 @@
+;;; testutil-reconcile-open-repos.el --- Test helpers for reconcile-open-repos -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Provides helper macros and functions for testing reconcile-open-repos.
+;; Creates temporary directory trees with fake .git dirs and mocks shell commands.
+
+;;; Code:
+
+(require 'cl-lib)
+
+(defmacro reconcile-test-with-temp-dirs (dir-spec &rest body)
+  "Create a temp directory tree per DIR-SPEC, bind `test-root', then run BODY.
+DIR-SPEC is a list of relative paths.  Paths ending in / create directories;
+others create files.  A path containing `.git/' creates the .git dir automatically.
+
+Example:
+  (reconcile-test-with-temp-dirs
+   (\"repo-a/.git/\" \"repo-b/subdir/\" \"not-a-repo/readme.txt\")
+   ...use test-root...)"
+  (declare (indent 1))
+  `(let ((test-root (make-temp-file "reconcile-test-" t)))
+     (unwind-protect
+         (progn
+           (dolist (path ',dir-spec)
+             (let ((full (expand-file-name path test-root)))
+               (if (string-suffix-p "/" path)
+                   (make-directory full t)
+                 (progn
+                   (make-directory (file-name-directory full) t)
+                   (write-region "" nil full)))))
+           ,@body)
+       (delete-directory test-root t))))
+
+(defmacro reconcile-test-with-shell-mocks (shell-cmd-fn shell-cmd-to-str-fn &rest body)
+  "Run BODY with `shell-command' and `shell-command-to-string' overridden.
+SHELL-CMD-FN receives (command) and returns an exit code integer.
+SHELL-CMD-TO-STR-FN receives (command) and returns a string."
+  (declare (indent 2))
+  `(cl-letf (((symbol-function 'shell-command)
+              (lambda (cmd &rest _) (funcall ,shell-cmd-fn cmd)))
+             ((symbol-function 'shell-command-to-string)
+              (lambda (cmd) (funcall ,shell-cmd-to-str-fn cmd))))
+     ,@body))
+
+(defvar reconcile-test-magit-calls nil
+  "List of directories passed to magit-status during tests.")
+
+(defmacro reconcile-test-with-magit-mock (&rest body)
+  "Run BODY with `magit-status' mocked to record calls."
+  (declare (indent 0))
+  `(let ((reconcile-test-magit-calls nil))
+     (cl-letf (((symbol-function 'magit-status)
+                (lambda (dir &rest _) (push dir reconcile-test-magit-calls))))
+       ,@body)))
+
+(provide 'testutil-reconcile-open-repos)
+;;; testutil-reconcile-open-repos.el ends here