blob: 1f4365a4d58c58400cd1a317e4192bb9c0a20f68 (
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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
;;; test-music-config-create-radio-station.el --- Tests for radio station creation -*- coding: utf-8; lexical-binding: t; -*-
;;
;; Author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Unit tests for cj/music-create-radio-station function.
;; Tests M3U file creation for radio stations with stream URLs.
;;
;; Test organization:
;; - Normal Cases: Standard creation, EXTM3U format, safe filename
;; - Boundary Cases: Unicode name, complex URL, overwrite confirmed
;; - Error Cases: Empty name, empty URL, overwrite declined
;;
;;; Code:
(require 'ert)
(require 'testutil-general)
;; Stub missing dependencies before loading music-config
(defvar-keymap cj/custom-keymap
:doc "Stub keymap for testing")
;; Load production code
(require 'music-config)
;;; Setup & Teardown
(defun test-music-config-create-radio-station-setup ()
"Setup test environment with temp directory for M3U output."
(cj/create-test-base-dir)
(cj/create-test-subdirectory "radio-playlists"))
(defun test-music-config-create-radio-station-teardown ()
"Clean up test environment."
(cj/delete-test-base-dir))
;;; Normal Cases
(ert-deftest test-music-config-create-radio-station-normal-creates-m3u-file ()
"Creating a radio station produces an M3U file in the music root."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir))
(cj/music-create-radio-station "Jazz FM" "http://stream.jazzfm.com/radio")
(let ((expected-file (expand-file-name "Jazz_FM_Radio.m3u" test-dir)))
(should (file-exists-p expected-file))))
(test-music-config-create-radio-station-teardown))))
(ert-deftest test-music-config-create-radio-station-normal-extm3u-format ()
"Created file contains EXTM3U header, EXTINF with station name, and URL."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir))
(cj/music-create-radio-station "Jazz FM" "http://stream.jazzfm.com/radio")
(let ((content (with-temp-buffer
(insert-file-contents
(expand-file-name "Jazz_FM_Radio.m3u" test-dir))
(buffer-string))))
(should (string-match-p "^#EXTM3U" content))
(should (string-match-p "#EXTINF:-1,Jazz FM" content))
(should (string-match-p "http://stream.jazzfm.com/radio" content))))
(test-music-config-create-radio-station-teardown))))
(ert-deftest test-music-config-create-radio-station-normal-safe-filename ()
"Station name with special characters produces filesystem-safe filename."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir))
(cj/music-create-radio-station "Rock & Roll 101.5" "http://example.com/stream")
;; Spaces and special chars replaced with underscores
(let ((expected-file (expand-file-name "Rock___Roll_101_5_Radio.m3u" test-dir)))
(should (file-exists-p expected-file))))
(test-music-config-create-radio-station-teardown))))
;;; Boundary Cases
(ert-deftest test-music-config-create-radio-station-boundary-unicode-name-safe-filename ()
"Unicode station name produces safe filename while preserving name in EXTINF."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir))
(cj/music-create-radio-station "Klassik Radio" "http://example.com/stream")
;; Name is all ASCII-safe, so filename uses it directly
(should (file-exists-p (expand-file-name "Klassik_Radio_Radio.m3u" test-dir)))
;; Original name preserved in EXTINF inside the file
(let ((content (with-temp-buffer
(insert-file-contents
(expand-file-name "Klassik_Radio_Radio.m3u" test-dir))
(buffer-string))))
(should (string-match-p "Klassik Radio" content))))
(test-music-config-create-radio-station-teardown))))
(ert-deftest test-music-config-create-radio-station-boundary-url-with-query-params ()
"Complex URL with query parameters preserved in file content."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir)
(url "https://stream.example.com/radio?format=mp3&quality=320&token=abc123"))
(cj/music-create-radio-station "Test Radio" url)
(let ((content (with-temp-buffer
(insert-file-contents
(expand-file-name "Test_Radio_Radio.m3u" test-dir))
(buffer-string))))
(should (string-match-p (regexp-quote url) content))))
(test-music-config-create-radio-station-teardown))))
(ert-deftest test-music-config-create-radio-station-boundary-overwrite-confirmed ()
"Overwriting existing file when user confirms succeeds."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir))
;; Create initial file
(cj/music-create-radio-station "MyRadio" "http://old.url/stream")
(let ((file (expand-file-name "MyRadio_Radio.m3u" test-dir)))
(should (file-exists-p file))
;; Overwrite with user confirming
(cl-letf (((symbol-function 'yes-or-no-p) (lambda (_prompt) t)))
(cj/music-create-radio-station "MyRadio" "http://new.url/stream"))
;; File should now contain new URL
(let ((content (with-temp-buffer
(insert-file-contents file)
(buffer-string))))
(should (string-match-p "http://new.url/stream" content))
(should-not (string-match-p "http://old.url/stream" content)))))
(test-music-config-create-radio-station-teardown))))
;;; Error Cases
(ert-deftest test-music-config-create-radio-station-error-empty-name-signals-user-error ()
"Empty station name signals user-error."
(should-error (cj/music-create-radio-station "" "http://example.com/stream")
:type 'user-error))
(ert-deftest test-music-config-create-radio-station-error-empty-url-signals-user-error ()
"Empty URL signals user-error."
(should-error (cj/music-create-radio-station "Test Radio" "")
:type 'user-error))
(ert-deftest test-music-config-create-radio-station-error-overwrite-declined-signals-user-error ()
"Declining overwrite signals user-error."
(let ((test-dir (test-music-config-create-radio-station-setup)))
(unwind-protect
(let ((cj/music-m3u-root test-dir))
;; Create initial file
(cj/music-create-radio-station "MyRadio" "http://old.url/stream")
;; Decline overwrite
(cl-letf (((symbol-function 'yes-or-no-p) (lambda (_prompt) nil)))
(should-error (cj/music-create-radio-station "MyRadio" "http://new.url/stream")
:type 'user-error)))
(test-music-config-create-radio-station-teardown))))
(provide 'test-music-config-create-radio-station)
;;; test-music-config-create-radio-station.el ends here
|
