diff options
Diffstat (limited to 'tests/test-auto-dim-config.el')
| -rw-r--r-- | tests/test-auto-dim-config.el | 33 |
1 files changed, 33 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 |
