blob: 1999f7064307121bbf3f1e1409dab6ee8ec9394b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
;;; test-reconcile--git-directory.el --- Tests for cj/reconcile-git-directory -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the top-level reconcile function that dispatches to skip/clean/dirty.
;;; Code:
(require 'ert)
(require 'testutil-reconcile-open-repos)
(require 'reconcile-open-repos)
;;; Normal Cases
(ert-deftest test-reconcile-git-directory-normal-clean-repo-pulls ()
"Clean SSH repo calls pull-clean, not pull-dirty."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root))
(clean-called nil)
(dirty-called nil))
(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)))
((symbol-function 'message) (lambda (_fmt &rest _args))))
(cj/reconcile-git-directory dir)))
(should clean-called)
(should-not dirty-called))))
(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-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)))
((symbol-function 'message) (lambda (_fmt &rest _args))))
(cj/reconcile-git-directory dir)))
(should-not clean-called)
(should dirty-called))))
(ert-deftest test-reconcile-git-directory-normal-skipped-repo-no-calls ()
"HTTP repo is skipped entirely — neither pull-clean nor pull-dirty called."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root))
(clean-called nil)
(dirty-called nil))
(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)))
((symbol-function 'message) (lambda (_fmt &rest _args))))
(cj/reconcile-git-directory dir)))
(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 ()
"Always emits 'checking: <dir>' message, even for skipped repos."
(reconcile-test-with-temp-dirs
("repo/readme.txt")
(let ((dir (expand-file-name "repo" test-root))
(messages nil))
(cl-letf (((symbol-function 'message)
(lambda (fmt &rest args) (push (apply #'format fmt args) messages))))
(cj/reconcile-git-directory dir))
(should (cl-some (lambda (m) (string-match-p "checking:" m)) messages)))))
(provide 'test-reconcile--git-directory)
;;; test-reconcile--git-directory.el ends here
|
