2018-06-15 09:31:54 +08:00
|
|
|
;; -*- no-byte-compile: t; -*-
|
|
|
|
|
;;; ../core/test/test-core-ui.el
|
|
|
|
|
|
2019-03-07 10:16:07 +08:00
|
|
|
(require 'core-ui)
|
|
|
|
|
|
2018-06-15 09:31:54 +08:00
|
|
|
(describe "core/ui"
|
|
|
|
|
(describe "doom|protect-fallback-buffer"
|
|
|
|
|
:var (kill-buffer-query-functions a b)
|
|
|
|
|
(before-all
|
|
|
|
|
(setq kill-buffer-query-functions '(doom|protect-fallback-buffer)))
|
|
|
|
|
|
|
|
|
|
(it "should kill other buffers"
|
|
|
|
|
(expect (kill-buffer (get-buffer-create "a"))))
|
|
|
|
|
|
|
|
|
|
(it "shouldn't kill the fallback buffer"
|
2018-08-17 10:03:07 +08:00
|
|
|
(expect (not (kill-buffer (doom-fallback-buffer)))))))
|
2018-06-15 09:31:54 +08:00
|
|
|
|
