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
|
;;; test-music-config--radio.el --- radio-browser lookup pure-logic tests -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; The pure pieces behind the radio-browser search command (spec
;; docs/specs/2026-07-06-radio-browser-lookup-spec.org): parsing a recorded
;; JSON response, picking a station's stream URL, formatting the marginalia
;; annotation (Variant B: codec/bitrate/country/votes/tags), and building the
;; search URL. The station->track builder and the queue mechanics live in
;; test-music-config--radio-station-track.el; the network GET and the
;; interactive command are exercised in the daemon, not here.
;;; Code:
(require 'ert)
;; Stub dependencies before loading the module.
(defvar cj/custom-keymap (make-sparse-keymap)
"Stub keymap for testing.")
(require 'music-config)
(declare-function cj/music-radio--parse-search "music-config" (json-text))
(declare-function cj/music-radio--station-url "music-config" (st))
(declare-function cj/music-radio--tags-snippet "music-config" (tags n))
(declare-function cj/music-radio--format-candidate "music-config" (st))
(declare-function cj/music-radio--search-url "music-config" (server query))
(defconst test-music-radio--fixture
(concat "[{\"stationuuid\":\"ea8059be-d119-4de3-b27b-0d9bd6aedb17\","
"\"name\":\"Adroit Jazz Underground\",\"url_resolved\":\"https://icecast.walmradio.com:8443/jazz\","
"\"codec\":\"MP3\",\"bitrate\":320,\"countrycode\":\"US\",\"votes\":174208,\"tags\":\"bebop,hard bop,cool\"},"
"{\"stationuuid\":\"00000000-no-url\",\"name\":\"No URL Station\",\"url_resolved\":\"\",\"url\":\"\","
"\"codec\":\"AAC\",\"bitrate\":0,\"countrycode\":\"FR\",\"votes\":5,\"tags\":\"\"}]")
"A two-station recorded radio-browser search response.")
(defun test-music-radio--first ()
"First station plist from the fixture."
(car (cj/music-radio--parse-search test-music-radio--fixture)))
;;; --------------------------- parse-search -----------------------------------
(ert-deftest test-music-radio-parse-search-normal ()
"Normal: a recorded response parses to station plists with the expected fields."
(let ((stations (cj/music-radio--parse-search test-music-radio--fixture)))
(should (= (length stations) 2))
(should (equal (plist-get (car stations) :name) "Adroit Jazz Underground"))
(should (equal (plist-get (car stations) :stationuuid)
"ea8059be-d119-4de3-b27b-0d9bd6aedb17"))))
(ert-deftest test-music-radio-parse-search-empty ()
"Boundary: an empty result array parses to nil."
(should-not (cj/music-radio--parse-search "[]")))
(ert-deftest test-music-radio-parse-search-malformed-user-errors ()
"Error: a non-JSON body (a gateway page) signals user-error, not a raw parse error."
(should-error (cj/music-radio--parse-search "<html>502 Bad Gateway</html>")
:type 'user-error))
;;; --------------------------- station-url ------------------------------------
(ert-deftest test-music-radio-station-url-resolved ()
"Normal: url_resolved wins when present."
(should (equal (cj/music-radio--station-url (test-music-radio--first))
"https://icecast.walmradio.com:8443/jazz")))
(ert-deftest test-music-radio-station-url-fallback-to-url ()
"Boundary: an empty url_resolved falls back to url."
(should (equal (cj/music-radio--station-url
'(:url_resolved "" :url "http://fallback.test/stream"))
"http://fallback.test/stream")))
(ert-deftest test-music-radio-station-url-none ()
"Error: neither url_resolved nor url yields nil."
(should-not (cj/music-radio--station-url '(:url_resolved "" :url ""))))
;;; --------------------------- tags-snippet -----------------------------------
(ert-deftest test-music-radio-tags-snippet-takes-first-n ()
"Normal: the first N comma-separated tags render trimmed."
(should (equal (cj/music-radio--tags-snippet "bebop, hard bop, cool, free jazz" 3)
"bebop, hard bop, cool")))
(ert-deftest test-music-radio-tags-snippet-empty ()
"Boundary: empty or nil tags render as the empty string."
(should (equal (cj/music-radio--tags-snippet "" 3) ""))
(should (equal (cj/music-radio--tags-snippet nil 3) "")))
;;; --------------------------- format-candidate (Variant B) -------------------
(ert-deftest test-music-radio-format-candidate-variant-b ()
"Normal: the annotation carries codec, votes, and tags (Variant B)."
(let ((ann (cj/music-radio--format-candidate (test-music-radio--first))))
(should (string-match-p "MP3" ann))
(should (string-match-p "174208" ann))
(should (string-match-p "bebop" ann))))
;;; --------------------------- search-url -------------------------------------
(ert-deftest test-music-radio-search-url-encodes-query-and-limit ()
"Normal: the search URL hex-encodes the query and carries the limit; name is the default field."
(let* ((cj/music-radio-search-limit 30)
(u (cj/music-radio--search-url "de1.api.radio-browser.info" "smooth jazz")))
(should (string-match-p "name=smooth%20jazz" u))
(should (string-match-p "limit=30" u))
(should (string-match-p "/json/stations/search" u))))
(ert-deftest test-music-radio-search-url-tag-field ()
"Normal: field \"tag\" searches the tag= parameter instead of name=."
(let ((u (cj/music-radio--search-url "de1.api.radio-browser.info" "ambient" "tag")))
(should (string-match-p "tag=ambient" u))
(should-not (string-match-p "name=ambient" u))))
(declare-function cj/music-radio--candidates "music-config" (stations))
;;; --------------------------- candidates (dedup) -----------------------------
(ert-deftest test-music-radio-candidates-distinct ()
"Normal: distinct station names produce distinct display keys mapping to their stations."
(let* ((stations '((:name "Jazz Radio" :codec "MP3" :bitrate 128)
(:name "Blues FM" :codec "AAC" :bitrate 64)))
(cands (cj/music-radio--candidates stations)))
(should (= (length cands) 2))
(should (assoc "Jazz Radio" cands))
(should (assoc "Blues FM" cands))))
(ert-deftest test-music-radio-candidates-same-name-disambiguated ()
"Boundary: two stations with the same name get distinct display keys."
(let* ((stations '((:name "Jazz Radio" :codec "MP3" :bitrate 128 :stationuuid "a")
(:name "Jazz Radio" :codec "OGG" :bitrate 192 :stationuuid "b")))
(cands (cj/music-radio--candidates stations))
(keys (mapcar #'car cands)))
(should (= (length cands) 2))
(should (= (length (delete-dups (copy-sequence keys))) 2))))
(provide 'test-music-config--radio)
;;; test-music-config--radio.el ends here
|
