blob: badc98171b9bb0461cfc84b3ed1964f725205375 (
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
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
;;; test-music-config--m3u-file-tracks.el --- Tests for M3U file parsing -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for cj/music--m3u-file-tracks function.
;; Tests the M3U parser that extracts track paths from playlist files.
;;
;; Test organization:
;; - Normal Cases: Absolute paths, relative paths, URLs (http/https/mms)
;; - Boundary Cases: Empty lines, whitespace, comments, order preservation
;; - Error Cases: Nonexistent files, nil input
;;
;;; Code:
(require 'ert)
(require 'testutil-general)
;; Stub missing dependencies before loading music-config
(defvar-keymap cj/custom-keymap
:doc "Stub keymap for testing")
;; Load production code
(require 'music-config)
;;; Setup & Teardown
(defun test-music-config--m3u-file-tracks-setup ()
"Setup test environment."
(cj/create-test-base-dir))
(defun test-music-config--m3u-file-tracks-teardown ()
"Clean up test environment."
(cj/delete-test-base-dir))
;;; Normal Cases
(ert-deftest test-music-config--m3u-file-tracks-normal-absolute-paths-returns-list ()
"Parse M3U with absolute paths returns list in order."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "/home/user/music/track1.mp3\n/home/user/music/track2.mp3\n/home/user/music/track3.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("/home/user/music/track1.mp3"
"/home/user/music/track2.mp3"
"/home/user/music/track3.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-normal-relative-paths-expanded ()
"Parse M3U with relative paths expands them relative to M3U directory."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "artist/track1.mp3\nartist/track2.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(m3u-dir (file-name-directory m3u-file))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks (list (expand-file-name "artist/track1.mp3" m3u-dir)
(expand-file-name "artist/track2.mp3" m3u-dir)))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-normal-http-urls-preserved ()
"Parse M3U with http:// URLs preserves them as-is."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "http://example.com/stream1.mp3\nhttp://example.com/stream2.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("http://example.com/stream1.mp3"
"http://example.com/stream2.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-normal-https-urls-preserved ()
"Parse M3U with https:// URLs preserves them as-is."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "https://secure.example.com/stream.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("https://secure.example.com/stream.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-normal-mms-urls-preserved ()
"Parse M3U with mms:// URLs preserves them as-is."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "mms://radio.example.com/stream\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("mms://radio.example.com/stream"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-normal-mixed-paths-and-urls ()
"Parse M3U with mix of absolute, relative, and URLs handles all correctly."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "/home/user/music/local.mp3\nartist/relative.mp3\nhttp://example.com/stream.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(m3u-dir (file-name-directory m3u-file))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks (list "/home/user/music/local.mp3"
(expand-file-name "artist/relative.mp3" m3u-dir)
"http://example.com/stream.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
;;; Boundary Cases
(ert-deftest test-music-config--m3u-file-tracks-boundary-empty-lines-ignored ()
"Parse M3U with empty lines ignores them and returns tracks."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "/home/user/music/track1.mp3\n\n/home/user/music/track2.mp3\n\n\n/home/user/music/track3.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("/home/user/music/track1.mp3"
"/home/user/music/track2.mp3"
"/home/user/music/track3.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-boundary-whitespace-only-lines-ignored ()
"Parse M3U with whitespace-only lines ignores them."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "/home/user/music/track1.mp3\n \n\t\t\n/home/user/music/track2.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("/home/user/music/track1.mp3"
"/home/user/music/track2.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-boundary-comments-ignored ()
"Parse M3U with comment lines ignores them, returns only tracks."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "#EXTM3U\n#EXTINF:-1,Track Title\n/home/user/music/track.mp3\n#Another comment\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("/home/user/music/track.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-boundary-leading-trailing-whitespace-trimmed ()
"Parse M3U with whitespace around paths trims it."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content " /home/user/music/track1.mp3 \n\t/home/user/music/track2.mp3\t\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("/home/user/music/track1.mp3"
"/home/user/music/track2.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-boundary-empty-file-returns-nil ()
"Parse empty M3U file returns nil."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (null tracks)))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-boundary-only-comments-returns-empty ()
"Parse M3U with only comments returns empty list."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "#EXTM3U\n#EXTINF:-1,Title\n#Another comment\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (null tracks)))
(test-music-config--m3u-file-tracks-teardown)))
(ert-deftest test-music-config--m3u-file-tracks-boundary-preserves-order ()
"Parse M3U preserves track order (tests nreverse)."
(test-music-config--m3u-file-tracks-setup)
(unwind-protect
(let* ((content "/track1.mp3\n/track2.mp3\n/track3.mp3\n/track4.mp3\n/track5.mp3\n")
(m3u-file (cj/create-temp-test-file-with-content content "test.m3u"))
(tracks (cj/music--m3u-file-tracks m3u-file)))
(should (equal tracks '("/track1.mp3" "/track2.mp3" "/track3.mp3" "/track4.mp3" "/track5.mp3"))))
(test-music-config--m3u-file-tracks-teardown)))
;;; Error Cases
(ert-deftest test-music-config--m3u-file-tracks-error-nonexistent-file-returns-nil ()
"Parse nonexistent file returns nil."
(should (null (cj/music--m3u-file-tracks "/nonexistent/path/playlist.m3u"))))
(ert-deftest test-music-config--m3u-file-tracks-error-nil-input-returns-nil ()
"Parse nil input returns nil gracefully."
(should (null (cj/music--m3u-file-tracks nil))))
(provide 'test-music-config--m3u-file-tracks)
;;; test-music-config--m3u-file-tracks.el ends here
|
