diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-auto-dim-config.el | 33 | ||||
| -rw-r--r-- | tests/test-init-module-headers.el | 1 |
2 files changed, 34 insertions, 0 deletions
diff --git a/tests/test-auto-dim-config.el b/tests/test-auto-dim-config.el new file mode 100644 index 00000000..45e1db5f --- /dev/null +++ b/tests/test-auto-dim-config.el @@ -0,0 +1,33 @@ +;;; test-auto-dim-config.el --- Tests for the auto-dim-other-buffers config -*- lexical-binding: t; -*- + +;;; Commentary: +;; auto-dim-config configures the local auto-dim-other-buffers fork: dim only +;; non-selected windows within Emacs (not the whole frame on focus-out), drop +;; fringe from the dimmed faces to avoid flicker on this non-pgtk build, and +;; enable the global mode. Guarded with `skip-unless' because the fork lives +;; in ~/code and may be absent on a clean checkout. + +;;; Code: + +(require 'ert) +(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory)) + +(defconst test-auto-dim--fork + (expand-file-name "~/code/auto-dim-other-buffers.el") + "Local fork directory the module loads via `:load-path'.") + +(ert-deftest test-auto-dim-config-applies-settings () + "Normal: loading the module enables the mode with the chosen settings." + (skip-unless (file-directory-p test-auto-dim--fork)) + (require 'auto-dim-config) + (unwind-protect + (progn + (should (bound-and-true-p auto-dim-other-buffers-mode)) + (should (null auto-dim-other-buffers-dim-on-focus-out)) + (should (eq t auto-dim-other-buffers-dim-on-switch-to-minibuffer)) + (should-not (assq 'fringe auto-dim-other-buffers-affected-faces))) + (when (fboundp 'auto-dim-other-buffers-mode) + (auto-dim-other-buffers-mode -1)))) + +(provide 'test-auto-dim-config) +;;; test-auto-dim-config.el ends here diff --git a/tests/test-init-module-headers.el b/tests/test-init-module-headers.el index af4f9ec9..ef5a7132 100644 --- a/tests/test-init-module-headers.el +++ b/tests/test-init-module-headers.el @@ -48,6 +48,7 @@ "text-config" "undead-buffers" ;; Batch 4 — UI / core-UX modules (Layer 2) + "auto-dim-config" "ui-config" "ui-theme" "ui-navigation" |