blob: 3e9c01775a40704362d1f473418fb1a2223e8cdf (
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
|
;;; test-reconcile--should-skip-p.el --- Tests for cj/reconcile--should-skip-p -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the skip predicate that filters out non-git dirs, local-only repos,
;; and http/https reference clones.
;;; Code:
(require 'ert)
(require 'testutil-reconcile-open-repos)
(require 'reconcile-open-repos)
;;; Normal Cases
(ert-deftest test-should-skip-p-normal-ssh-remote-not-skipped ()
"SSH remote repo should NOT be skipped."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root)))
(reconcile-test-with-shell-mocks
(lambda (_cmd) 0)
(lambda (cmd)
(if (string-match-p "remote.origin.url" cmd)
"git@github.com:user/repo.git"
""))
(should-not (cj/reconcile--should-skip-p dir))))))
(ert-deftest test-should-skip-p-normal-http-remote-skipped ()
"HTTP remote repo should be skipped (reference clone)."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root)))
(reconcile-test-with-shell-mocks
(lambda (_cmd) 0)
(lambda (cmd)
(if (string-match-p "remote.origin.url" cmd)
"http://github.com/user/repo.git"
""))
(should (cj/reconcile--should-skip-p dir))))))
(ert-deftest test-should-skip-p-normal-https-remote-skipped ()
"HTTPS remote repo should be skipped (reference clone)."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root)))
(reconcile-test-with-shell-mocks
(lambda (_cmd) 0)
(lambda (cmd)
(if (string-match-p "remote.origin.url" cmd)
"https://github.com/user/repo.git"
""))
(should (cj/reconcile--should-skip-p dir))))))
(ert-deftest test-should-skip-p-normal-no-remote-skipped ()
"Local-only repo (no remote) should be skipped."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root)))
(reconcile-test-with-shell-mocks
(lambda (_cmd) 0)
(lambda (cmd)
(if (string-match-p "remote.origin.url" cmd) "" ""))
(should (cj/reconcile--should-skip-p dir))))))
;;; Boundary Cases
(ert-deftest test-should-skip-p-boundary-no-git-dir ()
"Directory without .git should be skipped."
(reconcile-test-with-temp-dirs
("not-a-repo/readme.txt")
(let ((dir (expand-file-name "not-a-repo" test-root)))
(should (cj/reconcile--should-skip-p dir)))))
(ert-deftest test-should-skip-p-boundary-scp-style-remote-not-skipped ()
"SCP-style remote (user@host:path) should NOT be skipped."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root)))
(reconcile-test-with-shell-mocks
(lambda (_cmd) 0)
(lambda (cmd)
(if (string-match-p "remote.origin.url" cmd)
"user@myserver.com:repos/project.git"
""))
(should-not (cj/reconcile--should-skip-p dir))))))
(ert-deftest test-should-skip-p-boundary-ssh-protocol-url-not-skipped ()
"ssh:// protocol URL should NOT be skipped."
(reconcile-test-with-temp-dirs
("repo/.git/")
(let ((dir (expand-file-name "repo" test-root)))
(reconcile-test-with-shell-mocks
(lambda (_cmd) 0)
(lambda (cmd)
(if (string-match-p "remote.origin.url" cmd)
"ssh://git@github.com/user/repo.git"
""))
(should-not (cj/reconcile--should-skip-p dir))))))
(provide 'test-reconcile--should-skip-p)
;;; test-reconcile--should-skip-p.el ends here
|
