blob: 2f7dbbabc1ec0fbc9f6b40eea7c33b7633bcb909 (
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
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
;;; test-chrono-tools-tmr-sound.el --- Tests for tmr sound selection -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for `cj/tmr-select-sound-file' and its helpers in chrono-tools.el.
;; The prefix-arg branch delegates to `cj/tmr-reset-sound-to-default' so
;; there's no duplicated reset logic to test twice.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
;; Stub vars that chrono-tools.el assumes are bound at runtime.
(defvar sounds-dir nil)
(defvar tmr-sound-file nil)
(defvar notification-sound "/tmp/notify.mp3")
(require 'chrono-tools)
;; -------------------------------- helpers
(defun test-chrono-tools--with-sounds-dir (files fn)
"Create a temp `sounds-dir' containing FILES, call FN, clean up."
(let* ((dir (make-temp-file "test-chrono-tools-tmr-" t))
(sounds-dir dir))
(unwind-protect
(progn
(dolist (f files)
(with-temp-file (expand-file-name f dir) (insert "x")))
(funcall fn dir))
(when (file-exists-p dir) (delete-directory dir t)))))
;; -------------------------------- available-sound-files
(ert-deftest test-chrono-tools-available-sounds-normal ()
"Normal: returns audio files in `sounds-dir' matching the extension list."
(test-chrono-tools--with-sounds-dir
'("a.mp3" "b.opus" "readme.txt")
(lambda (_dir)
(let ((files (cj/tmr--available-sound-files)))
(should (member "a.mp3" files))
(should (member "b.opus" files))
(should-not (member "readme.txt" files))))))
(ert-deftest test-chrono-tools-available-sounds-empty-dir ()
"Boundary: empty `sounds-dir' returns nil."
(test-chrono-tools--with-sounds-dir
'()
(lambda (_dir)
(should-not (cj/tmr--available-sound-files)))))
(ert-deftest test-chrono-tools-available-sounds-no-dir ()
"Boundary: missing `sounds-dir' returns nil."
(let ((sounds-dir (expand-file-name (format "missing-%s" (random)) "/tmp")))
(should-not (cj/tmr--available-sound-files))))
;; -------------------------------- reset-sound-to-default
(ert-deftest test-chrono-tools-reset-sets-default ()
"Reset assigns `notification-sound' to `tmr-sound-file'."
(let ((tmr-sound-file "/tmp/other.mp3")
(notification-sound "/tmp/the-default.mp3"))
(cj/tmr-reset-sound-to-default)
(should (equal tmr-sound-file "/tmp/the-default.mp3"))))
;; -------------------------------- select-sound-file
(ert-deftest test-chrono-tools-select-with-prefix-arg-resets ()
"Prefix arg delegates to reset, no completing-read prompt."
(let ((current-prefix-arg '(4))
(tmr-sound-file "/tmp/other.mp3")
(notification-sound "/tmp/the-default.mp3")
(prompted nil))
(cl-letf (((symbol-function 'completing-read)
(lambda (&rest _) (setq prompted t) "")))
(cj/tmr-select-sound-file))
(should-not prompted)
(should (equal tmr-sound-file "/tmp/the-default.mp3"))))
(ert-deftest test-chrono-tools-select-normal-sets-selected-file ()
"Normal: pick a file, `tmr-sound-file' updates to its full path."
(test-chrono-tools--with-sounds-dir
'("alpha.mp3" "beta.opus")
(lambda (dir)
(let ((current-prefix-arg nil)
(tmr-sound-file nil)
(notification-sound "/tmp/the-default.mp3"))
(cl-letf (((symbol-function 'completing-read)
(lambda (&rest _) "alpha.mp3")))
(cj/tmr-select-sound-file))
(should (equal tmr-sound-file
(expand-file-name "alpha.mp3" dir)))))))
(ert-deftest test-chrono-tools-select-boundary-empty-dir ()
"Boundary: empty sounds dir leaves `tmr-sound-file' unchanged."
(test-chrono-tools--with-sounds-dir
'()
(lambda (_dir)
(let ((current-prefix-arg nil)
(tmr-sound-file "/tmp/keep-me.mp3")
(notification-sound "/tmp/the-default.mp3"))
(cj/tmr-select-sound-file)
(should (equal tmr-sound-file "/tmp/keep-me.mp3"))))))
(ert-deftest test-chrono-tools-select-boundary-missing-dir ()
"Boundary: missing sounds dir leaves `tmr-sound-file' unchanged."
(let ((current-prefix-arg nil)
(sounds-dir (expand-file-name (format "missing-%s" (random)) "/tmp"))
(tmr-sound-file "/tmp/keep-me.mp3")
(notification-sound "/tmp/the-default.mp3"))
(cj/tmr-select-sound-file)
(should (equal tmr-sound-file "/tmp/keep-me.mp3"))))
(ert-deftest test-chrono-tools-select-boundary-cancel-returns-no-change ()
"Boundary: empty completion result leaves `tmr-sound-file' unchanged."
(test-chrono-tools--with-sounds-dir
'("alpha.mp3")
(lambda (_dir)
(let ((current-prefix-arg nil)
(tmr-sound-file "/tmp/keep-me.mp3")
(notification-sound "/tmp/the-default.mp3"))
(cl-letf (((symbol-function 'completing-read)
(lambda (&rest _) "")))
(cj/tmr-select-sound-file))
(should (equal tmr-sound-file "/tmp/keep-me.mp3"))))))
(provide 'test-chrono-tools-tmr-sound)
;;; test-chrono-tools-tmr-sound.el ends here
|
