107 lines
3.5 KiB
EmacsLisp
107 lines
3.5 KiB
EmacsLisp
;; -*- no-byte-compile: t; -*-
|
|
;;; ../core/test/test-core-ui.el
|
|
|
|
(describe "core/ui"
|
|
(before-all
|
|
(with-demoted-errors "Import error: %s"
|
|
(require 'core-ui)))
|
|
|
|
(describe "doom-protect-fallback-buffer-h"
|
|
:var (kill-buffer-query-functions)
|
|
(before-all
|
|
(setq kill-buffer-query-functions '(doom-protect-fallback-buffer-h)))
|
|
|
|
(it "should kill other buffers"
|
|
(expect (kill-buffer (get-buffer-create "a"))))
|
|
|
|
(it "shouldn't kill the fallback buffer"
|
|
(expect (not (kill-buffer (doom-fallback-buffer))))))
|
|
|
|
(describe "custom hooks"
|
|
(describe "switch hooks"
|
|
:var (before-hook after-hook a b)
|
|
(before-each
|
|
(setq a (switch-to-buffer (get-buffer-create "a"))
|
|
b (get-buffer-create "b"))
|
|
(spy-on 'hook)
|
|
(add-hook 'buffer-list-update-hook #'doom-run-switch-window-hooks-h)
|
|
(add-hook 'focus-in-hook #'doom-run-switch-frame-hooks-h)
|
|
(dolist (fn '(switch-to-buffer display-buffer))
|
|
(advice-add fn :around #'doom-run-switch-buffer-hooks-a)))
|
|
(after-each
|
|
(remove-hook 'buffer-list-update-hook #'doom-run-switch-window-hooks-h)
|
|
(remove-hook 'focus-in-hook #'doom-run-switch-frame-hooks-h)
|
|
(dolist (fn '(switch-to-buffer display-buffer))
|
|
(advice-remove fn #'doom-run-switch-buffer-hooks-a))
|
|
(kill-buffer a)
|
|
(kill-buffer b))
|
|
|
|
(describe "switch-buffer"
|
|
:var (doom-switch-buffer-hook)
|
|
(before-each
|
|
(setq doom-switch-buffer-hook '(hook)))
|
|
(after-each
|
|
(setq doom-switch-buffer-hook nil))
|
|
|
|
(it "should trigger when switching buffers"
|
|
(switch-to-buffer b)
|
|
(switch-to-buffer a)
|
|
(switch-to-buffer b)
|
|
(expect 'hook :to-have-been-called-times 3))
|
|
|
|
(it "should trigger only once on the same buffer"
|
|
(switch-to-buffer b)
|
|
(switch-to-buffer b)
|
|
(switch-to-buffer a)
|
|
(expect 'hook :to-have-been-called-times 2)))
|
|
|
|
|
|
(describe "switch-window"
|
|
:var (doom-switch-window-hook x y)
|
|
(before-each
|
|
(delete-other-windows)
|
|
(setq x (get-buffer-window a)
|
|
y (save-selected-window (split-window)))
|
|
(with-selected-window y
|
|
(switch-to-buffer b))
|
|
(select-window x)
|
|
(spy-calls-reset 'hook)
|
|
(setq doom-switch-window-hook '(hook)))
|
|
|
|
(it "should trigger when switching windows"
|
|
(select-window y)
|
|
(select-window x)
|
|
(select-window y)
|
|
(expect 'hook :to-have-been-called-times 3))
|
|
|
|
(it "should trigger only once on the same window"
|
|
(select-window y)
|
|
(select-window y)
|
|
(select-window x)
|
|
(expect 'hook :to-have-been-called-times 2)))
|
|
|
|
|
|
(xdescribe "switch-frame"
|
|
:var (doom-switch-frame-hook x y)
|
|
(before-each
|
|
(delete-other-windows)
|
|
(setq x (get-buffer-window a)
|
|
y (save-selected-window (split-window)))
|
|
(with-selected-window y
|
|
(switch-to-buffer b))
|
|
(select-window x)
|
|
(spy-calls-reset 'hook)
|
|
(setq doom-switch-window-hook '(hook)))
|
|
|
|
(it "should trigger when switching windows"
|
|
(select-window y)
|
|
(select-window x)
|
|
(select-window y)
|
|
(expect 'hook :to-have-been-called-times 3))
|
|
|
|
(it "should trigger only once on the same window"
|
|
(select-window y)
|
|
(select-window y)
|
|
(select-window x)
|
|
(expect 'hook :to-have-been-called-times 2))))))
|