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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
;;; test-coverage-summary.el --- Tests for terminal coverage summary -*- lexical-binding: t; -*-
;;; Commentary:
;; Unit tests for the batch helper used by `make coverage-summary'.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(add-to-list 'load-path (expand-file-name "scripts" user-emacs-directory))
(require 'coverage-summary)
(defun test-coverage-summary--write-json (content)
"Write CONTENT to a temp file; return its path."
(let ((file (make-temp-file "test-coverage-summary-" nil ".json")))
(with-temp-file file
(insert content))
file))
(defun test-coverage-summary--touch (file)
"Create FILE and its parent directory."
(make-directory (file-name-directory file) t)
(with-temp-file file
(insert ";;; fixture\n")))
(ert-deftest test-coverage-summary-modules-only ()
"Normal: summary includes modules files and ignores non-module files."
(let* ((root (file-name-as-directory (make-temp-file "coverage-root-" t)))
(module-a (expand-file-name "modules/a.el" root))
(module-b (expand-file-name "modules/b.el" root))
(other (expand-file-name "tests/test-a.el" root))
(content (format
"{\"run\":{\"coverage\":{\"%s\":[1,0,null,1],\"%s\":[0,0],\"%s\":[1,1]}}}"
module-a module-b other))
(file (test-coverage-summary--write-json content)))
(unwind-protect
(progn
(test-coverage-summary--touch module-a)
(test-coverage-summary--touch module-b)
(test-coverage-summary--touch other)
(let ((output (cj/coverage-summary-text
file
(expand-file-name "modules" root)
root)))
(should (string-match-p "modules/a\\.el" output))
(should (string-match-p "modules/b\\.el" output))
(should-not (string-match-p "tests/test-a\\.el" output))
(should (string-match-p "2 of 5" output))
(should (string-match-p "Project module coverage: 33\\.3%" output))
(should (string-match-p "Not in SimpleCov report: 0 modules" output))))
(delete-file file)
(delete-directory root t))))
(ert-deftest test-coverage-summary-sorts-worst-first ()
"Normal: module rows use the same worst-first sorting as the editor summary."
(let* ((root (file-name-as-directory (make-temp-file "coverage-root-" t)))
(low (expand-file-name "modules/low.el" root))
(high (expand-file-name "modules/high.el" root))
(content (format
"{\"run\":{\"coverage\":{\"%s\":[0,0,1,1],\"%s\":[1,1]}}}"
low high))
(file (test-coverage-summary--write-json content)))
(unwind-protect
(progn
(test-coverage-summary--touch low)
(test-coverage-summary--touch high)
(let* ((output (cj/coverage-summary-text
file
(expand-file-name "modules" root)
root))
(pos-low (string-match "modules/low\\.el" output))
(pos-high (string-match "modules/high\\.el" output)))
(should pos-low)
(should pos-high)
(should (< pos-low pos-high))))
(delete-file file)
(delete-directory root t))))
(ert-deftest test-coverage-summary-lists-modules-missing-from-simplecov ()
"Normal: modules on disk but absent from SimpleCov are listed separately."
(let* ((root (file-name-as-directory (make-temp-file "coverage-root-" t)))
(tracked (expand-file-name "modules/tracked.el" root))
(missing-a (expand-file-name "modules/missing-a.el" root))
(missing-b (expand-file-name "modules/missing-b.el" root))
(content (format
"{\"run\":{\"coverage\":{\"%s\":[1,0,null,1]}}}"
tracked))
(file (test-coverage-summary--write-json content)))
(unwind-protect
(progn
(test-coverage-summary--touch tracked)
(test-coverage-summary--touch missing-a)
(test-coverage-summary--touch missing-b)
(let ((output (cj/coverage-summary-text
file
(expand-file-name "modules" root)
root)))
(should (string-match-p "Total: 2 of 3 lines covered" output))
(should (string-match-p
"Project module coverage: 22\\.2% (1 tracked, 2 missing, 3 total; missing modules count as 0%)"
output))
(should (string-match-p "Not in SimpleCov report: 2 modules" output))
(should (string-match-p "modules/missing-a\\.el" output))
(should (string-match-p "modules/missing-b\\.el" output))
(should (string-match-p "count as 0% in project module coverage" output))))
(delete-file file)
(delete-directory root t))))
(ert-deftest test-coverage-summary-missing-module-helper-ignores-elc-and-subdirs ()
"Boundary: untracked module detection is exactly direct modules/*.el files."
(let* ((root (file-name-as-directory (make-temp-file "coverage-root-" t)))
(module-dir (expand-file-name "modules" root))
(tracked-file (expand-file-name "modules/tracked.el" root))
(missing-file (expand-file-name "modules/missing.el" root))
(compiled-file (expand-file-name "modules/compiled.elc" root))
(nested-file (expand-file-name "modules/nested/not-a-module.el" root))
(tracked-table (make-hash-table :test 'equal)))
(unwind-protect
(progn
(test-coverage-summary--touch tracked-file)
(test-coverage-summary--touch missing-file)
(make-directory (file-name-directory compiled-file) t)
(with-temp-file compiled-file (insert "compiled"))
(test-coverage-summary--touch nested-file)
(puthash "modules/tracked.el" t tracked-table)
(should (equal (cj/coverage-summary--missing-module-files
tracked-table module-dir root)
'("modules/missing.el"))))
(delete-directory root t))))
(provide 'test-coverage-summary)
;;; test-coverage-summary.el ends here
|
