From ef9fc05839232e5ce54a90c2286890863d962352 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sat, 30 Dec 2017 01:26:46 -0500
Subject: [PATCH] Add core-ui tests

---
 core/test/core-ui.el | 46 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 core/test/core-ui.el

diff --git a/core/test/core-ui.el b/core/test/core-ui.el
new file mode 100644
index 000000000..ed4389720
--- /dev/null
+++ b/core/test/core-ui.el
@@ -0,0 +1,46 @@
+;; -*- 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)))))