blob: 5816c7762694632a595ea9671a87f169e2f92057 (
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
|
;;; test-music-config--radio-station-track.el --- station->track + enqueue tests -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; The queue-first radio model: a picked station becomes an EMMS url track
;; carrying its metadata as track properties (info-title, radio-uuid,
;; radio-favicon) instead of being written to an .m3u. Covers the pure
;; station->track builder and the enqueue-and-play buffer mechanics (with
;; playback mocked at the EMMS boundary).
;;; Code:
(require 'ert)
(require 'cl-lib)
;; Stub dependencies before loading the module.
(defvar cj/custom-keymap (make-sparse-keymap)
"Stub keymap for 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 'music-config)
(declare-function cj/music-radio--station-track "music-config" (st))
(declare-function cj/music-radio--enqueue-and-play "music-config" (tracks))
;;; --------------------------- station-track -----------------------------------
(ert-deftest test-music-radio-station-track-normal ()
"Normal: a full station plist yields a url track with all three properties."
(let ((track (cj/music-radio--station-track
'(:name "Adroit Jazz Underground"
:url_resolved "https://icecast.walmradio.com:8443/jazz"
:stationuuid "ea8059be-d119"
:favicon "https://walmradio.com/icon.png"))))
(should (eq (emms-track-type track) 'url))
(should (equal (emms-track-name track) "https://icecast.walmradio.com:8443/jazz"))
(should (equal (emms-track-get track 'info-title) "Adroit Jazz Underground"))
(should (equal (emms-track-get track 'radio-uuid) "ea8059be-d119"))
(should (equal (emms-track-get track 'radio-favicon) "https://walmradio.com/icon.png"))))
(ert-deftest test-music-radio-station-track-no-url-is-nil ()
"Error: a station with no stream URL yields nil, not a broken track."
(should-not (cj/music-radio--station-track '(:name "No URL" :url_resolved "" :url ""))))
(ert-deftest test-music-radio-station-track-boundary-no-name ()
"Boundary: a nameless station falls back to \"Radio\" for its title."
(let ((track (cj/music-radio--station-track '(:url "https://s.example/live"))))
(should (equal (emms-track-get track 'info-title) "Radio"))))
(ert-deftest test-music-radio-station-track-boundary-newline-name-stripped ()
"Boundary: newlines in an external station name are flattened to spaces."
(let ((track (cj/music-radio--station-track
'(:name "Line\nBreak" :url "https://s.example/live"))))
(should (equal (emms-track-get track 'info-title) "Line Break"))))
(ert-deftest test-music-radio-station-track-boundary-empty-uuid-favicon-absent ()
"Boundary: empty-string uuid/favicon are treated as absent, not stored."
(let ((track (cj/music-radio--station-track
'(:name "X" :url "https://s.example/live" :stationuuid "" :favicon ""))))
(should-not (emms-track-get track 'radio-uuid))
(should-not (emms-track-get track 'radio-favicon))))
;;; ------------------------- enqueue-and-play ----------------------------------
(defmacro test-music-radio--with-playlist (&rest body)
"Run BODY with a fresh, uniquely named playlist buffer and playback mocked."
`(let* ((cj/music-playlist-buffer-name
(generate-new-buffer-name "*test-radio-enqueue*"))
(emms-player-playing-p nil)
(started 0) (stopped 0))
(unwind-protect
(cl-letf (((symbol-function 'emms-start)
(lambda () (setq started (1+ started))))
((symbol-function 'emms-stop)
(lambda () (setq stopped (1+ stopped)))))
,@body)
(when (get-buffer cj/music-playlist-buffer-name)
(kill-buffer cj/music-playlist-buffer-name)))))
(ert-deftest test-music-radio-enqueue-and-play-normal-appends-and-plays ()
"Normal: tracks land in the playlist buffer in order; the first is selected
and playback starts."
(test-music-radio--with-playlist
(let ((t1 (cj/music-radio--station-track '(:name "One" :url "https://one.example/a")))
(t2 (cj/music-radio--station-track '(:name "Two" :url "https://two.example/b"))))
(cj/music-radio--enqueue-and-play (list t1 t2))
(with-current-buffer cj/music-playlist-buffer-name
(let ((names '()))
(save-excursion
(goto-char (point-min))
(while (not (eobp))
(when-let ((tr (emms-playlist-track-at (point))))
(push (emms-track-name tr) names))
(forward-line 1)))
(should (equal (nreverse names)
'("https://one.example/a" "https://two.example/b"))))
(should (equal (emms-track-name (emms-playlist-selected-track))
"https://one.example/a")))
(should (= started 1)))))
(ert-deftest test-music-radio-enqueue-and-play-boundary-appends-after-existing ()
"Boundary: an existing queue is kept; new tracks append and the first NEW
track is the one selected."
(test-music-radio--with-playlist
(let ((old (cj/music-radio--station-track '(:name "Old" :url "https://old.example/x")))
(new (cj/music-radio--station-track '(:name "New" :url "https://new.example/y"))))
(cj/music-radio--enqueue-and-play (list old))
(cj/music-radio--enqueue-and-play (list new))
(with-current-buffer cj/music-playlist-buffer-name
(should (equal (emms-track-name (emms-playlist-selected-track))
"https://new.example/y"))))))
(ert-deftest test-music-radio-enqueue-and-play-interrupts-current-playback ()
"Normal: when something is playing, enqueue stops it before starting."
(test-music-radio--with-playlist
(let ((emms-player-playing-p t)
(tr (cj/music-radio--station-track '(:name "Z" :url "https://z.example/s"))))
(cj/music-radio--enqueue-and-play (list tr))
(should (= stopped 1))
(should (= started 1)))))
(ert-deftest test-music-radio-enqueue-and-play-boundary-nil-is-no-op ()
"Boundary: an empty track list does nothing — no buffer churn, no playback."
(test-music-radio--with-playlist
(cj/music-radio--enqueue-and-play nil)
(should (= started 0))
(should (= stopped 0))))
(provide 'test-music-config--radio-station-track)
;;; test-music-config--radio-station-track.el ends here
|
