emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update core-ui tests

Browse source
This commit is contained in:
Henrik Lissner 2018-01-03 14:29:51 -05:00
parent 93f3f0ef38
commit e9d4e50c0a
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

27
core/test/core-ui.el
View file

@ -3,18 +3,18 @@
(defmacro with-temp-windows!! (&rest body)
(declare (indent defun))
`(progn
`(cl-flet ((split-window (symbol-function #'split-window-horizontally)))
(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))))
(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")
(let ((after-change-major-mode-hook '(doom|set-mode-name))
(doom-major-mode-names '((text-mode . "abc")
(lisp-mode . (lambda () "xyz"))
(js-mode . t))))
(text-mode)
@ -32,14 +32,3 @@
(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)))))