blob: bc86980847700217e48db5562d853eacfa7a313b (
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
|
;;; test-music-config--art-cache-key.el --- Tests for cover-art cache key -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for `cj/music-art--cache-key': the stable cache-file basename for
;; a track. A url with a known #RADIOBROWSERUUID keys on the uuid (so the same
;; station shares one cached logo); any other url keys on a hash of its address;
;; a file keys on a hash of its path.
;;
;;; 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-cache-key-normal-uuid ()
"Normal: a url with a UUID in the entries keys on the UUID."
(let ((track (emms-track 'url "https://ck.somafm.com/gs"))
(entries '(("https://ck.somafm.com/gs" :name "GS" :uuid "uuid-42" :favicon nil))))
(should (string= (cj/music-art--cache-key track entries) "uuid-42"))))
(ert-deftest test-music-config--art-cache-key-boundary-url-no-uuid ()
"Boundary: a url with no UUID keys on a stable url- hash, not the raw URL."
(let* ((url "https://ck2.example.net/live")
(track (emms-track 'url url))
(key (cj/music-art--cache-key track nil)))
(should (string-prefix-p "url-" key))
(should (string= key (concat "url-" (sha1 url))))))
(ert-deftest test-music-config--art-cache-key-normal-file ()
"Normal: a file keys on a file- hash of its path."
(let* ((path "/music/Kind of Blue/01.flac")
(track (emms-track 'file path)))
(should (string= (cj/music-art--cache-key track nil)
(concat "file-" (sha1 path))))))
(ert-deftest test-music-config--art-cache-key-boundary-empty-uuid-falls-to-hash ()
"Boundary: an empty-string UUID is treated as absent, so the url hashes."
(let* ((url "https://ck3.example.net/x")
(track (emms-track 'url url))
(entries (list (list url :name "X" :uuid "" :favicon nil))))
(should (string= (cj/music-art--cache-key track entries)
(concat "url-" (sha1 url))))))
(ert-deftest test-music-config--art-cache-key-normal-track-property ()
"Normal: a queued lookup station carries its uuid as a track property and
needs no entries at all."
(let ((track (emms-track 'url "https://ck4.example.net/live")))
(emms-track-set track 'radio-uuid "prop-uuid")
(should (string= (cj/music-art--cache-key track nil) "prop-uuid"))))
(ert-deftest test-music-config--art-cache-key-normal-property-beats-entries ()
"Normal: the track property wins over a conflicting entries uuid."
(let* ((url "https://ck5.example.net/live")
(track (emms-track 'url url))
(entries (list (list url :name "X" :uuid "entries-uuid" :favicon nil))))
(emms-track-set track 'radio-uuid "prop-uuid")
(should (string= (cj/music-art--cache-key track entries) "prop-uuid"))))
(provide 'test-music-config--art-cache-key)
;;; test-music-config--art-cache-key.el ends here
|
