blob: 73b3705d71ff696f82404ddd1604fbd80fc5299a (
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
|
;;; test-config-utilities--delete-compiled-files-in-dir.el --- Tests for cj/--delete-compiled-files-in-dir -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for `cj/--delete-compiled-files-in-dir'. The helper walks DIR
;; recursively, deletes every `.elc' and `.eln' file, and returns the
;; count. Tests run against real temp directories so the file-system
;; recursion and suffix matching are exercised end-to-end.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'config-utilities)
(defun test-config-utilities--make-temp-fixture-dir (specs)
"Create a fresh temp directory containing files described by SPECS.
SPECS is a list of file paths relative to the temp dir. Each path
gets created as an empty file (subdirectories created as needed).
Returns the temp dir path."
(let ((dir (make-temp-file "delete-compiled-test-" t)))
(dolist (spec specs)
(let ((full (expand-file-name spec dir)))
(let ((parent (file-name-directory full)))
(when (and parent (not (file-exists-p parent)))
(make-directory parent t)))
(with-temp-file full (insert ""))))
dir))
(ert-deftest test-config-utilities-delete-compiled-deletes-elc-and-eln ()
"Normal: a directory with mixed .el / .elc / .eln files keeps .el and
deletes both compiled forms. Returns the count of deletions."
(let ((dir (test-config-utilities--make-temp-fixture-dir
'("a.el" "a.elc" "b.eln" "c.el"))))
(unwind-protect
(let ((count (cj/--delete-compiled-files-in-dir dir)))
(should (= count 2))
(should (file-exists-p (expand-file-name "a.el" dir)))
(should (file-exists-p (expand-file-name "c.el" dir)))
(should-not (file-exists-p (expand-file-name "a.elc" dir)))
(should-not (file-exists-p (expand-file-name "b.eln" dir))))
(delete-directory dir t))))
(ert-deftest test-config-utilities-delete-compiled-recursive ()
"Boundary: deletion descends into subdirectories."
(let ((dir (test-config-utilities--make-temp-fixture-dir
'("top.elc" "sub/nested.elc" "sub/nested.el"
"sub/deep/very-nested.eln"))))
(unwind-protect
(let ((count (cj/--delete-compiled-files-in-dir dir)))
(should (= count 3))
(should (file-exists-p (expand-file-name "sub/nested.el" dir)))
(should-not (file-exists-p (expand-file-name "top.elc" dir)))
(should-not (file-exists-p (expand-file-name "sub/nested.elc" dir)))
(should-not (file-exists-p
(expand-file-name "sub/deep/very-nested.eln" dir))))
(delete-directory dir t))))
(ert-deftest test-config-utilities-delete-compiled-no-compiled-files ()
"Boundary: a directory with no compiled files reports 0 and changes nothing."
(let ((dir (test-config-utilities--make-temp-fixture-dir
'("only.el" "another.el" "sub/more.el"))))
(unwind-protect
(let ((count (cj/--delete-compiled-files-in-dir dir)))
(should (zerop count))
(should (file-exists-p (expand-file-name "only.el" dir))))
(delete-directory dir t))))
(ert-deftest test-config-utilities-delete-compiled-empty-dir ()
"Boundary: an empty directory returns 0."
(let ((dir (make-temp-file "empty-delete-test-" t)))
(unwind-protect
(should (zerop (cj/--delete-compiled-files-in-dir dir)))
(delete-directory dir t))))
(ert-deftest test-config-utilities-delete-compiled-suffix-not-substring ()
"Boundary: a file whose name CONTAINS \".elc\" but doesn't end in it is kept."
(let ((dir (test-config-utilities--make-temp-fixture-dir
'("not-elc-suffix.el"
"looks.elc.bak"
"real.elc"))))
(unwind-protect
(let ((count (cj/--delete-compiled-files-in-dir dir)))
(should (= count 1))
(should (file-exists-p (expand-file-name "not-elc-suffix.el" dir)))
(should (file-exists-p (expand-file-name "looks.elc.bak" dir)))
(should-not (file-exists-p (expand-file-name "real.elc" dir))))
(delete-directory dir t))))
(provide 'test-config-utilities--delete-compiled-files-in-dir)
;;; test-config-utilities--delete-compiled-files-in-dir.el ends here
|
