blob: 7d9adbedceb8b89813d6e8e151ac81f48cb221a9 (
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
|
;;; test-music-config-create-radio-station.el --- Tests for manual radio-station entry -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for cj/music-create-radio-station under the queue-first model:
;; a hand-entered name + URL becomes a url track in the playlist queue (with
;; the name as its title property) and playback starts. Nothing is written
;; to disk — saving is the normal playlist-save flow.
;;
;; Test organization:
;; - Normal Cases: track queued with title, playback started, no file written
;; - Boundary Cases: unicode name preserved verbatim
;; - Error Cases: empty name, empty URL
;;; Code:
(require 'ert)
(require 'cl-lib)
;; Stub missing dependencies before loading music-config
(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)
(defmacro test-music-create-radio--with-env (&rest body)
"Run BODY with a fresh playlist buffer, playback mocked, messages captured."
`(let* ((cj/music-playlist-buffer-name
(generate-new-buffer-name "*test-create-radio*"))
(emms-player-playing-p nil)
(started 0) (msg nil))
(ignore started msg)
(unwind-protect
(cl-letf (((symbol-function 'emms-start)
(lambda () (setq started (1+ started))))
((symbol-function 'emms-stop) #'ignore)
((symbol-function 'message)
(lambda (fmt &rest args)
(when fmt (setq msg (apply #'format fmt args))))))
,@body)
(when (get-buffer cj/music-playlist-buffer-name)
(kill-buffer cj/music-playlist-buffer-name)))))
(defun test-music-create-radio--queued-tracks ()
"Track objects currently in the test playlist buffer."
(let ((tracks '()))
(with-current-buffer cj/music-playlist-buffer-name
(save-excursion
(goto-char (point-min))
(while (not (eobp))
(when-let ((tr (emms-playlist-track-at (point))))
(push tr tracks))
(forward-line 1))))
(nreverse tracks)))
;;; Normal Cases
(ert-deftest test-music-config-create-radio-station-normal-queues-track ()
"Normal: name+url queues a url track carrying the name, and playback starts."
(test-music-create-radio--with-env
(cj/music-create-radio-station "Jazz FM" "http://stream.jazzfm.com/radio")
(let ((tracks (test-music-create-radio--queued-tracks)))
(should (= (length tracks) 1))
(should (eq (emms-track-type (car tracks)) 'url))
(should (equal (emms-track-name (car tracks)) "http://stream.jazzfm.com/radio"))
(should (equal (emms-track-get (car tracks) 'info-title) "Jazz FM")))
(should (= started 1))
(should (string-match-p "Jazz FM" msg))))
(ert-deftest test-music-config-create-radio-station-normal-writes-no-file ()
"Normal: nothing lands on disk — saving is the playlist-save flow's job."
(let ((tmp (file-name-as-directory (make-temp-file "cj-radio-nofile-" t))))
(unwind-protect
(test-music-create-radio--with-env
(let ((cj/music-m3u-root tmp)
(cj/music-radio-save-dir tmp))
(cj/music-create-radio-station "NPR" "https://example.test/stream")
(should-not (directory-files tmp nil "\\.m3u\\'"))))
(delete-directory tmp t))))
;;; Boundary Cases
(ert-deftest test-music-config-create-radio-station-boundary-unicode-name ()
"Boundary: a unicode name is kept verbatim on the track (no filename munging)."
(test-music-create-radio--with-env
(cj/music-create-radio-station "Café Del Mar ☕" "https://cafe.example/stream")
(should (equal (emms-track-get (car (test-music-create-radio--queued-tracks))
'info-title)
"Café Del Mar ☕"))))
;;; Keymap
(ert-deftest test-music-config-radio-map-prefix-mirrors-playlist-keys ()
"Normal: C-; m r is a radio prefix whose n/t/m mirror the playlist buffer."
(let ((map (lookup-key cj/music-map "r")))
(should (keymapp map))
(should (eq (lookup-key map "n") 'cj/music-radio-search-by-name))
(should (eq (lookup-key map "t") 'cj/music-radio-search-by-tag))
(should (eq (lookup-key map "m") 'cj/music-create-radio-station))))
(ert-deftest test-music-config-menu-map-lowercase-keys ()
"Normal: the menu's former uppercase keys live on lowercase homes, and the
playlist buffer saves on v."
(should (eq (lookup-key cj/music-map "v") 'cj/music-playlist-show))
(should (eq (lookup-key cj/music-map "u") 'emms-shuffle))
(should (eq (lookup-key cj/music-map "l") 'emms-toggle-repeat-playlist))
(should-not (lookup-key cj/music-map "R"))
(should-not (lookup-key cj/music-map "M"))
(should-not (lookup-key cj/music-map "Z"))
(should (eq (lookup-key emms-playlist-mode-map "v") 'cj/music-playlist-save))
(should-not (eq (lookup-key emms-playlist-mode-map "w") 'cj/music-playlist-save)))
;;; Error Cases
(ert-deftest test-music-config-create-radio-station-error-empty-name-signals-user-error ()
"Error: empty name signals user-error."
(should-error (cj/music-create-radio-station "" "https://x") :type 'user-error))
(ert-deftest test-music-config-create-radio-station-error-empty-url-signals-user-error ()
"Error: empty URL signals user-error."
(should-error (cj/music-create-radio-station "NPR" "") :type 'user-error))
(provide 'test-music-config-create-radio-station)
;;; test-music-config-create-radio-station.el ends here
|
