blob: 69d24cc3aca515925c444f002e1b28b38cf7cee9 (
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
|
;;; test-music-config--playlist-dock.el --- Tests for the F10 playlist dock -*- lexical-binding: t; -*-
;;; Commentary:
;; The F10 playlist always docks at the bottom, whatever the frame's shape.
;; It used to pick `right' on a wide frame via `cj/preferred-dock-direction',
;; which produced an unwanted three-way split on a wide terminal.
;;
;; `cj/side-window-display' is the window-system boundary here, so it is the
;; thing stubbed (an ordinary defun -- safe to `cl-letf', unlike the frame-*
;; subrs). Stubbing it lets these tests assert what the toggle *asks for*
;; without needing a live frame under `--batch'.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'music-config)
(defmacro test-music-dock--with-captured-side (captured &rest body)
"Run BODY with the playlist display path stubbed, recording its args in CAPTURED.
CAPTURED is set to a plist of :side, :size-var and :default-size."
(declare (indent 1))
`(let ((buffer (generate-new-buffer " *test-playlist*")))
(unwind-protect
(cl-letf (((symbol-function 'cj/emms--setup) (lambda (&rest _) nil))
((symbol-function 'cj/music--ensure-playlist-buffer)
(lambda (&rest _) buffer))
((symbol-function 'emms-playlist-mode-center-current)
(lambda (&rest _) nil))
((symbol-function 'cj/side-window-display)
(lambda (_buf side size-var default-size)
(setq ,captured (list :side side :size-var size-var
:default-size default-size))
(selected-window))))
,@body)
(kill-buffer buffer))))
(ert-deftest test-music-config-playlist-toggle-docks-bottom-on-wide-frame ()
"Normal: a wide frame still docks the playlist at the bottom.
A wide frame used to dock right, splitting the frame three ways."
(let (captured)
(test-music-dock--with-captured-side captured
(cl-letf (((symbol-function 'frame-width) (lambda (&rest _) 400)))
(cj/music-playlist-toggle)))
(should (eq 'bottom (plist-get captured :side)))))
(ert-deftest test-music-config-playlist-toggle-docks-bottom-on-narrow-frame ()
"Boundary: a narrow frame docks at the bottom, as it always did."
(let (captured)
(test-music-dock--with-captured-side captured
(cl-letf (((symbol-function 'frame-width) (lambda (&rest _) 40)))
(cj/music-playlist-toggle)))
(should (eq 'bottom (plist-get captured :side)))))
(ert-deftest test-music-config-playlist-toggle-uses-height-memory ()
"Normal: the bottom dock carries the height fraction and its memory var."
(let (captured)
(test-music-dock--with-captured-side captured
(cj/music-playlist-toggle))
(should (eq 'cj/--music-playlist-height (plist-get captured :size-var)))
(should (= cj/music-playlist-window-height (plist-get captured :default-size)))))
(ert-deftest test-music-config-playlist-dock-has-no-width-knobs ()
"Error: the right-dock width variables are gone, not merely unused.
A stale `cj/music-playlist-window-width' would read as a live knob that
silently does nothing."
(should-not (boundp 'cj/music-playlist-window-width))
(should-not (boundp 'cj/--music-playlist-width))
(should-not (fboundp 'cj/--music-playlist-side)))
(provide 'test-music-config--playlist-dock)
;;; test-music-config--playlist-dock.el ends here
|
