blob: 8de97350c47e74c0940c4b91e93141258416cc9b (
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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
;;; test-music-config--header-text.el --- Tests for playlist header string generation -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for cj/music--header-text function.
;; Tests the multi-line header string builder for the playlist overlay.
;;
;; Test organization:
;; - Normal Cases: Playlist name from file, "Untitled" default, track count
;; - Boundary Cases: Stopped state, paused state, mode indicators
;; - Error Cases: Empty playlist buffer
;;
;;; Code:
(require 'ert)
;; Stub missing dependencies before loading music-config
(defvar-keymap cj/custom-keymap
:doc "Stub keymap for testing")
;; Add EMMS elpa directory to load path for batch testing
(let ((emms-dir (car (file-expand-wildcards
(expand-file-name "elpa/emms-*" user-emacs-directory)))))
(when emms-dir
(add-to-list 'load-path emms-dir)))
(require 'emms)
(require 'emms-playlist-mode)
(require 'music-config)
;;; Test helpers
(defun test-header--setup-playlist-buffer (track-names)
"Create an EMMS playlist buffer with TRACK-NAMES and return it."
(let ((buf (get-buffer-create cj/music-playlist-buffer-name)))
(with-current-buffer buf
(emms-playlist-mode)
(setq emms-playlist-buffer-p t)
(let ((inhibit-read-only t))
(erase-buffer)
(dolist (name track-names)
(emms-playlist-insert-track (emms-track 'file name)))))
(setq emms-playlist-buffer buf)
buf))
(defun test-header--teardown ()
"Clean up test playlist buffer and reset EMMS state."
(setq emms-player-playing-p nil)
(setq emms-player-paused-p nil)
(when-let ((buf (get-buffer cj/music-playlist-buffer-name)))
(with-current-buffer buf
(setq cj/music-playlist-file nil))
(kill-buffer buf)))
(defun test-header--strip-properties (str)
"Return STR with all text properties removed."
(let ((s (copy-sequence str)))
(set-text-properties 0 (length s) nil s)
s))
;;; Normal Cases
(ert-deftest test-music-config--header-text-normal-shows-playlist-name-from-file ()
"Header shows playlist name derived from cj/music-playlist-file."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '("/music/a.mp3"))
(with-current-buffer cj/music-playlist-buffer-name
(setq cj/music-playlist-file "/path/to/my-jazz.m3u"))
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "my-jazz" plain))))
(test-header--teardown)))
(ert-deftest test-music-config--header-text-normal-shows-untitled-when-no-file ()
"Header shows 'Untitled' when no playlist file is associated."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '("/music/a.mp3"))
(with-current-buffer cj/music-playlist-buffer-name
(setq cj/music-playlist-file nil))
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "Untitled" plain))))
(test-header--teardown)))
(ert-deftest test-music-config--header-text-normal-shows-track-count ()
"Header shows correct track count."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '("/music/a.mp3" "/music/b.mp3" "/music/c.mp3"))
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "(3)" plain))))
(test-header--teardown)))
;;; Boundary Cases
(ert-deftest test-music-config--header-text-boundary-stopped-state ()
"Header shows 'Stopped' when not playing."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '("/music/a.mp3"))
(setq emms-player-playing-p nil)
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "Stopped" plain))))
(test-header--teardown)))
(ert-deftest test-music-config--header-text-boundary-paused-state ()
"Header shows 'Paused' when player is paused."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '("/music/a.mp3"))
(setq emms-player-playing-p t)
(setq emms-player-paused-p t)
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "Paused" plain))))
(test-header--teardown)))
(ert-deftest test-music-config--header-text-boundary-contains-mode-labels ()
"Header contains mode indicator labels for repeat, single, random, consume."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '("/music/a.mp3"))
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "repeat" plain))
(should (string-match-p "single" plain))
(should (string-match-p "random" plain))
(should (string-match-p "consume" plain))))
(test-header--teardown)))
;;; Error Cases
(ert-deftest test-music-config--header-text-error-empty-playlist-shows-zero-count ()
"Header shows (0) for empty playlist."
(unwind-protect
(progn
(test-header--setup-playlist-buffer '())
(let* ((header (with-current-buffer cj/music-playlist-buffer-name
(cj/music--header-text)))
(plain (test-header--strip-properties header)))
(should (string-match-p "(0)" plain))))
(test-header--teardown)))
(provide 'test-music-config--header-text)
;;; test-music-config--header-text.el ends here
|
