feat(music): cover-art fetch and cache for the player (fancy UI phase 2)

Phase 2 gives each track a local cover-image path so phase 3's GUI has art to draw. A radio station uses its logo, a local file a sibling cover image, and anything without either falls back to a shipped vinyl placeholder.

I consolidated the .m3u parse into one richer cj/music--m3u-entries that reads :name, :uuid, and :favicon per station. Phase 1's cj/music--m3u-labels is now a thin projection of it, so names and art share a single cached disk read. New stations capture their favicon into a #RADIOBROWSERFAVICON line at creation, so most need no lookup later. A legacy station with only a UUID resolves its favicon through a byuuid call.

The render path never touches the network. cj/music-art--for-track reads only the cache and returns the placeholder until art exists. cj/music-art--ensure does the blocking fetch off that path. A fetched response is validated as an actual image before it's cached, so an HTML error page or an empty body becomes the placeholder, not a poisoned cache entry. Only http and https URLs are fetched, so an external favicon field can't reach a file:// resource. Art lands under data/music-art/, keyed by UUID or a file hash. cj/music-clear-art-cache empties it, with no automatic expiry.

The pure helpers carry the tests: the parser, the cache key, the favicon URL, and the image validation, each with Normal, Boundary, and Error cases. The fetch, the byuuid lookup, and the placeholder fallback are verified live against a real station. Local files use a sibling cover image for now. Embedded-tag extraction is deferred. The full suite is green.

1 files changed, 67 insertions, 0 deletions

diff --git a/tests/test-music-config--m3u-entries.el b/tests/test-music-config--m3u-entries.el
new file mode 100644
index 00000000..1eaf1345
--- /dev/null
+++ b/tests/test-music-config--m3u-entries.el
@@ -0,0 +1,67 @@
+;;; test-music-config--m3u-entries.el --- Tests for #EXTINF/UUID/favicon parse -*- coding: utf-8; lexical-binding: t; -*-
+;;
+;; Author: Craig Jennings <c@cjennings.net>
+;;
+;;; Commentary:
+;; Unit tests for `cj/music--m3u-entries': parse .m3u text into an alist of
+;; (stream-url . plist), each plist carrying :name (the #EXTINF label), :uuid
+;; (#RADIOBROWSERUUID), and :favicon (#RADIOBROWSERFAVICON).  This is the one
+;; pure parser both the name resolution (Phase 1) and the cover-art layer read.
+;;
+;;; Code:
+
+(require 'ert)
+
+(defvar-keymap cj/custom-keymap :doc "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)
+
+(ert-deftest test-music-config--m3u-entries-normal-name-only ()
+  "Normal: an #EXTINF + url pair yields :name with nil :uuid and :favicon."
+  (let* ((text "#EXTM3U\n#EXTINF:1,SomaFM Groove Salad\nhttps://ice6.somafm.com/gs\n")
+         (e (cdr (assoc "https://ice6.somafm.com/gs" (cj/music--m3u-entries text)))))
+    (should (equal (plist-get e :name) "SomaFM Groove Salad"))
+    (should (null (plist-get e :uuid)))
+    (should (null (plist-get e :favicon)))))
+
+(ert-deftest test-music-config--m3u-entries-normal-uuid-and-favicon ()
+  "Normal: UUID and favicon comment lines are captured onto the entry."
+  (let* ((text (concat "#EXTM3U\n#EXTINF:1,Jazz24\n"
+                       "#RADIOBROWSERUUID:abc-123\n"
+                       "#RADIOBROWSERFAVICON:https://cdn.example/jazz.png\n"
+                       "https://jazz.example/live\n"))
+         (e (cdr (assoc "https://jazz.example/live" (cj/music--m3u-entries text)))))
+    (should (equal (plist-get e :name) "Jazz24"))
+    (should (equal (plist-get e :uuid) "abc-123"))
+    (should (equal (plist-get e :favicon) "https://cdn.example/jazz.png"))))
+
+(ert-deftest test-music-config--m3u-entries-normal-multiple-reset ()
+  "Normal: fields reset between stations (station B has no UUID leak from A)."
+  (let* ((text (concat "#EXTINF:1,A\n#RADIOBROWSERUUID:aaa\nhttps://a.example/1\n"
+                       "#EXTINF:1,B\nhttps://b.example/2\n"))
+         (entries (cj/music--m3u-entries text))
+         (b (cdr (assoc "https://b.example/2" entries))))
+    (should (equal (plist-get b :name) "B"))
+    (should (null (plist-get b :uuid)))))
+
+(ert-deftest test-music-config--m3u-entries-boundary-url-without-extinf ()
+  "Boundary: a bare url with no #EXTINF is skipped."
+  (should (null (cj/music--m3u-entries "#EXTM3U\nhttps://plain.example/stream\n"))))
+
+(ert-deftest test-music-config--m3u-entries-boundary-empty ()
+  "Boundary: empty text yields nil."
+  (should (null (cj/music--m3u-entries ""))))
+
+(ert-deftest test-music-config--m3u-entries-boundary-comma-in-name ()
+  "Boundary: a comma inside the #EXTINF label is preserved."
+  (let* ((text "#EXTINF:1,Radio, the Good Kind\nhttps://x.example/s\n")
+         (e (cdr (assoc "https://x.example/s" (cj/music--m3u-entries text)))))
+    (should (equal (plist-get e :name) "Radio, the Good Kind"))))
+
+(provide 'test-music-config--m3u-entries)
+;;; test-music-config--m3u-entries.el ends here