1 files changed, 69 insertions, 0 deletions
diff --git a/tests/test-music-config--art-favicon-url.el b/tests/test-music-config--art-favicon-url.el
new file mode 100644
index 00000000..9e7b92f8
--- /dev/null
+++ b/tests/test-music-config--art-favicon-url.el
@@ -0,0 +1,69 @@
+;;; test-music-config--art-favicon-url.el --- Tests for stream favicon URL -*- coding: utf-8; lexical-binding: t; -*-
+;;
+;; Author: Craig Jennings <c@cjennings.net>
+;;
+;;; Commentary:
+;; Unit tests for `cj/music-art--favicon-url': the direct favicon image URL for
+;; a url track, taken from the #RADIOBROWSERFAVICON captured at station creation.
+;; A station with only a UUID resolves its favicon via a separate byuuid lookup
+;; (done in the impure orchestrator), so this pure helper returns nil there.
+;;
+;;; 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--art-favicon-url-normal-captured ()
+  "Normal: a captured #RADIOBROWSERFAVICON is returned directly."
+  (let ((track (emms-track 'url "https://fav.somafm.com/gs"))
+        (entries '(("https://fav.somafm.com/gs"
+                    :name "GS" :uuid "u1" :favicon "https://cdn.example/gs.png"))))
+    (should (string= (cj/music-art--favicon-url track entries)
+                     "https://cdn.example/gs.png"))))
+
+(ert-deftest test-music-config--art-favicon-url-boundary-uuid-only ()
+  "Boundary: a station with a UUID but no captured favicon returns nil
+\(the byuuid lookup is the orchestrator's job)."
+  (let ((track (emms-track 'url "https://fav2.example.net/live"))
+        (entries '(("https://fav2.example.net/live"
+                    :name "X" :uuid "u2" :favicon nil))))
+    (should (null (cj/music-art--favicon-url track entries)))))
+
+(ert-deftest test-music-config--art-favicon-url-boundary-empty-favicon ()
+  "Boundary: an empty-string favicon is treated as absent."
+  (let ((track (emms-track 'url "https://fav3.example.net/live"))
+        (entries '(("https://fav3.example.net/live" :name "X" :uuid "u3" :favicon ""))))
+    (should (null (cj/music-art--favicon-url track entries)))))
+
+(ert-deftest test-music-config--art-favicon-url-error-file-track ()
+  "Error: a file track has no stream favicon URL."
+  (let ((track (emms-track 'file "/music/x.flac")))
+    (should (null (cj/music-art--favicon-url track nil)))))
+
+(ert-deftest test-music-config--art-favicon-url-normal-track-property ()
+  "Normal: a queued lookup station carries its favicon as a track property."
+  (let ((track (emms-track 'url "https://fp.example.net/live")))
+    (emms-track-set track 'radio-favicon "https://fp.example.net/icon.png")
+    (should (string= (cj/music-art--favicon-url track nil)
+                     "https://fp.example.net/icon.png"))))
+
+(ert-deftest test-music-config--art-favicon-url-normal-property-beats-entries ()
+  "Normal: the track property wins over a conflicting entries favicon."
+  (let* ((url "https://fp2.example.net/live")
+         (track (emms-track 'url url))
+         (entries (list (list url :name "X" :uuid nil
+                              :favicon "https://entries.example/e.png"))))
+    (emms-track-set track 'radio-favicon "https://prop.example/p.png")
+    (should (string= (cj/music-art--favicon-url track entries)
+                     "https://prop.example/p.png"))))
+
+(provide 'test-music-config--art-favicon-url)
+;;; test-music-config--art-favicon-url.el ends here