blob: c1065f3a0e06ef5348ef580ee30961a95707bf67 (
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
136
137
138
139
|
;;; test-music-config--display-name.el --- Tests for track display-name -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for `cj/music--display-name' and `cj/music--format-meta'.
;;
;; display-name is the pure, name-only resolver shared by the header's Current
;; line and the playlist row renderer: for a tagged track it returns
;; "Artist - Title" (no duration -- duration is right-aligned meta, not name);
;; for an untagged file the clean filename; for a url track the #EXTINF label
;; from a passed name-map, else a tidied host; unknown types fall back to
;; emms-track-simple-description.
;;
;; format-meta returns the right-aligned meta string for a row: a file's
;; duration as "[M:SS]", empty otherwise.
;;
;; Track independence: `emms-track' returns a track cached by (type . name)
;; once EMMS is loaded, so two tests sharing a name would share a mutated
;; object. Every test below uses a UNIQUE track name to stay independent.
;;
;;; 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 'emms-playlist-mode)
(require 'music-config)
;;; Helpers
(defun test-display-name--file (path &optional title artist duration)
"Create a file TRACK with PATH and optional TITLE ARTIST DURATION."
(let ((track (emms-track 'file path)))
(when title (emms-track-set track 'info-title title))
(when artist (emms-track-set track 'info-artist artist))
(when duration (emms-track-set track 'info-playing-time duration))
track))
(defun test-display-name--url (url &optional title artist)
"Create a url TRACK with URL and optional TITLE ARTIST."
(let ((track (emms-track 'url url)))
(when title (emms-track-set track 'info-title title))
(when artist (emms-track-set track 'info-artist artist))
track))
;;; Normal -- tagged tracks (no duration in the name)
(ert-deftest test-music-config--display-name-normal-artist-title ()
"Normal: tagged track shows Artist - Title, no duration bracket."
(let ((track (test-display-name--file
"/dn/artist-title.flac" "So What" "Miles Davis" 562)))
(should (string= (cj/music--display-name track) "Miles Davis - So What"))))
(ert-deftest test-music-config--display-name-normal-title-only ()
"Normal: title without artist shows the title alone."
(let ((track (test-display-name--file "/dn/title-only.mp3" "Flamenco Sketches" nil 566)))
(should (string= (cj/music--display-name track) "Flamenco Sketches"))))
;;; Normal -- untagged file
(ert-deftest test-music-config--display-name-normal-file-no-tags ()
"Normal: untagged file shows filename without path or extension."
(let ((track (test-display-name--file "/dn/Kind of Blue/02 - Freddie.flac")))
(should (string= (cj/music--display-name track) "02 - Freddie"))))
;;; Normal -- url resolves to #EXTINF label from the name-map
(ert-deftest test-music-config--display-name-normal-url-label-from-map ()
"Normal: a url track resolves to its #EXTINF label via the name-map."
(let ((track (test-display-name--url "https://ice6.somafm.com/groovesalad-256-mp3"))
(map '(("https://ice6.somafm.com/groovesalad-256-mp3" . "SomaFM Groove Salad"))))
(should (string= (cj/music--display-name track map) "SomaFM Groove Salad"))))
;;; Normal -- url with tags formats like a tagged track
(ert-deftest test-music-config--display-name-normal-url-with-tags ()
"Normal: a url track carrying tags uses Artist - Title, not the URL."
(let ((track (test-display-name--url "https://tagged.example.com/stream"
"Jazz FM" "Radio Station")))
(should (string= (cj/music--display-name track) "Radio Station - Jazz FM"))))
;;; Boundary -- url with no label falls back to a tidied host
(ert-deftest test-music-config--display-name-boundary-url-host-fallback ()
"Boundary: a url with no label and no map falls back to the tidied host."
(let ((track (test-display-name--url "https://ice6.hostonly.somafm.com/gs")))
(should (string= (cj/music--display-name track) "somafm.com"))))
(ert-deftest test-music-config--display-name-boundary-url-not-in-map ()
"Boundary: a url absent from a non-empty map still falls to the host."
(let ((track (test-display-name--url "https://stream.other.net/live"))
(map '(("https://ice6.somafm.com/x" . "Groove Salad"))))
(should (string= (cj/music--display-name track map) "other.net"))))
(ert-deftest test-music-config--display-name-boundary-unicode-title ()
"Boundary: unicode in the title is preserved."
(let ((track (test-display-name--file "/dn/unicode.mp3" "夜に駆ける" "YOASOBI" 258)))
(should (string= (cj/music--display-name track) "YOASOBI - 夜に駆ける"))))
(ert-deftest test-music-config--display-name-boundary-file-multiple-dots ()
"Boundary: only the final extension is stripped."
(let ((track (test-display-name--file "/dn/disc.1.track.03.flac")))
(should (string= (cj/music--display-name track) "disc.1.track.03"))))
;;; Error -- unknown type falls back without erroring
(ert-deftest test-music-config--display-name-error-unknown-type ()
"Error: an unknown track type falls back to a string, no error."
(let* ((track (emms-track 'streamlist "https://unknown.example.com/playlist.m3u"))
(result (cj/music--display-name track)))
(should (stringp result))
(should (string-match-p "example\\.com" result))))
;;; format-meta
(ert-deftest test-music-config--format-meta-normal-file-duration ()
"Normal: a file with a duration yields the bracketed M:SS meta."
(let ((track (test-display-name--file "/dn/meta-dur.flac" "So What" "Miles" 562)))
(should (string= (cj/music--format-meta track) "[9:22]"))))
(ert-deftest test-music-config--format-meta-boundary-no-duration ()
"Boundary: a track with no duration yields an empty meta string."
(let ((track (test-display-name--file "/dn/meta-nodur.flac" "So What" "Miles")))
(should (string= (cj/music--format-meta track) ""))))
(ert-deftest test-music-config--format-meta-boundary-url-no-meta ()
"Boundary: a url stream with no duration yields empty meta."
(let ((track (test-display-name--url "https://meta.example.com/stream")))
(should (string= (cj/music--format-meta track) ""))))
(provide 'test-music-config--display-name)
;;; test-music-config--display-name.el ends here
|
