blob: 02f328cd719c388ff941fca72a344e12a700b9c0 (
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
|
;;; test-music-config--m3u-labels.el --- Tests for #EXTINF label extraction -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for `cj/music--m3u-labels': parse .m3u text into an alist of
;; (stream-url . #EXTINF-label) pairs. This is the pure core that lets a url
;; track resolve to its station name (the label written at creation) instead
;; of the raw stream URL.
;;
;;; 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-labels-normal-single ()
"Normal: one #EXTINF + url pair yields one (url . label) cons."
(let ((text "#EXTM3U\n#EXTINF:1,SomaFM Groove Salad\nhttps://ice6.somafm.com/gs\n"))
(should (equal (cj/music--m3u-labels text)
'(("https://ice6.somafm.com/gs" . "SomaFM Groove Salad"))))))
(ert-deftest test-music-config--m3u-labels-normal-uuid-line-between ()
"Normal: a #RADIOBROWSERUUID line between #EXTINF and the url is skipped."
(let ((text (concat "#EXTM3U\n#EXTINF:1,Jazz24\n"
"#RADIOBROWSERUUID:abc-123\nhttps://jazz.example/live\n")))
(should (equal (cj/music--m3u-labels text)
'(("https://jazz.example/live" . "Jazz24"))))))
(ert-deftest test-music-config--m3u-labels-normal-multiple ()
"Normal: multiple stations each yield their own pair."
(let ((text (concat "#EXTM3U\n"
"#EXTINF:1,Station A\nhttps://a.example/1\n"
"#EXTINF:-1,Station B\nhttps://b.example/2\n")))
(should (equal (cj/music--m3u-labels text)
'(("https://a.example/1" . "Station A")
("https://b.example/2" . "Station B"))))))
(ert-deftest test-music-config--m3u-labels-boundary-url-without-extinf ()
"Boundary: a bare url with no preceding #EXTINF produces no pair."
(let ((text "#EXTM3U\nhttps://plain.example/stream\n"))
(should (null (cj/music--m3u-labels text)))))
(ert-deftest test-music-config--m3u-labels-boundary-empty ()
"Boundary: empty text yields nil."
(should (null (cj/music--m3u-labels ""))))
(ert-deftest test-music-config--m3u-labels-boundary-comma-in-name ()
"Boundary: a comma inside the label is preserved (split on the first only)."
(let ((text "#EXTINF:1,Radio, the Good Kind\nhttps://x.example/s\n"))
(should (equal (cj/music--m3u-labels text)
'(("https://x.example/s" . "Radio, the Good Kind"))))))
(provide 'test-music-config--m3u-labels)
;;; test-music-config--m3u-labels.el ends here
|
