blob: f496946901bd0602412bb8d947310cf40f0735b1 (
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
|
;;; test-music-config--playlist-side.el --- Tests for the F10 dock-side helper -*- lexical-binding: t; -*-
;;; Commentary:
;; `cj/--music-playlist-side' maps the shared dock rule's verdict to a
;; `display-buffer-in-side-window' side: `right' stays `right', anything
;; else becomes `bottom'. The decision itself lives in
;; `cj/preferred-dock-direction' (tested in test-cj-window-geometry-lib.el);
;; here we stub it (an ordinary defun -- safe to `cl-letf', unlike the
;; frame-* subrs) to prove the mapping and that the width fraction is
;; passed through.
;;; Code:
(require 'ert)
(require 'cl-lib)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'music-config)
(ert-deftest test-music-config--playlist-side-right-verdict-is-right ()
"Normal: a `right' verdict from the dock rule docks the playlist right."
(cl-letf (((symbol-function 'cj/preferred-dock-direction)
(lambda (&rest _) 'right)))
(should (eq (cj/--music-playlist-side) 'right))))
(ert-deftest test-music-config--playlist-side-below-verdict-is-bottom ()
"Normal: a `below' verdict maps to the `bottom' side window."
(cl-letf (((symbol-function 'cj/preferred-dock-direction)
(lambda (&rest _) 'below)))
(should (eq (cj/--music-playlist-side) 'bottom))))
(ert-deftest test-music-config--playlist-side-passes-width-fraction ()
"Normal: the playlist's width fraction reaches the dock rule."
(let ((cj/music-playlist-window-width 0.4)
captured)
(cl-letf (((symbol-function 'cj/preferred-dock-direction)
(lambda (cols frac &rest _)
(setq captured (list cols frac))
'below)))
(cj/--music-playlist-side)
(should (= (nth 1 captured) 0.4))
(should (integerp (nth 0 captured))))))
(provide 'test-music-config--playlist-side)
;;; test-music-config--playlist-side.el ends here
|
