47 lines
1.4 KiB
EmacsLisp
47 lines
1.4 KiB
EmacsLisp
|
;; -*- no-byte-compile: t; -*-
|
||
|
|
;;; ../core/test/core-ui.el
|
||
|
|
|
||
|
|
(defmacro -with-temp-windows! (&rest body)
|
||
|
|
(declare (indent defun))
|
||
|
|
`(save-window-excursion
|
||
|
|
(delete-other-windows)
|
||
|
|
(cl-flet ((split-window (symbol-function #'split-window-horizontally)))
|
||
|
|
(let ((a (get-buffer-create "a"))
|
||
|
|
(b (get-buffer-create "b"))
|
||
|
|
(split-width-threshold 0)
|
||
|
|
(window-min-width 0))
|
||
|
|
,@body))))
|
||
|
|
|
||
|
|
;;
|
||
|
|
(def-test! set-mode-name
|
||
|
|
(let ((doom-major-mode-names '((text-mode . "abc")
|
||
|
|
(lisp-mode . (lambda () "xyz"))
|
||
|
|
(js-mode . t))))
|
||
|
|
(with-temp-buffer
|
||
|
|
(text-mode)
|
||
|
|
(should (equal mode-name "abc"))
|
||
|
|
(lisp-mode)
|
||
|
|
(should (equal mode-name "xyz"))
|
||
|
|
(should-error (js-mode)))))
|
||
|
|
|
||
|
|
(def-test! protect-visible-buffers
|
||
|
|
(-with-temp-windows!
|
||
|
|
(let ((kill-buffer-query-functions '(doom|protect-visible-buffers)))
|
||
|
|
(switch-to-buffer a) (split-window)
|
||
|
|
(switch-to-buffer b) (split-window)
|
||
|
|
(switch-to-buffer a)
|
||
|
|
(should-not (kill-buffer))
|
||
|
|
(select-window (get-buffer-window b))
|
||
|
|
(should (kill-buffer)))))
|
||
|
|
|
||
|
|
(def-test! *quit-window
|
||
|
|
(-with-temp-windows!
|
||
|
|
(let (kill-buffer-query-functions)
|
||
|
|
(switch-to-buffer a) (split-window)
|
||
|
|
(switch-to-buffer b)
|
||
|
|
(save-window-excursion
|
||
|
|
(quit-window t)
|
||
|
|
(should (buffer-live-p b)))
|
||
|
|
(quit-window)
|
||
|
|
(should-not (buffer-live-p b)))))
|