diff options
| author | gcv <gepardcv@gmail.com> | 2021-07-09 16:53:50 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-07-09 16:53:50 -0700 |
| commit | 5ad026545b47f85eec53b680b4803497b03f2a1e (patch) | |
| tree | 6b4cda0eca8dc8b464575c95b9f7b03a7c0fbf1c /test/test-perspective.el | |
| parent | 8e5a51adb9336c8bb4259f9c478c18c79490002a (diff) | |
| parent | 6e1d64ce2c3dfb3a0ff721aed80d35fd47f89522 (diff) | |
Merge pull request #159 from mehw/properly_restore_default_value_of_header-line-format
disabling persp-mode should not mix a buffer's header-line-format with its default (aka global) value
Diffstat (limited to 'test/test-perspective.el')
| -rw-r--r-- | test/test-perspective.el | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/test/test-perspective.el b/test/test-perspective.el index f4da582..d614d55 100644 --- a/test/test-perspective.el +++ b/test/test-perspective.el @@ -129,6 +129,34 @@ deleted at cleanup." ;; no buffers should be open after all this (should (= 0 (length (persp-test-buffer-list-all))))) +(ert-deftest basic-persp-header-line-format-default-value () + "Disabling `persp-mode' should properly restore the default +value of `header-line-format'. + +Updating `header-line-format' default value using a buffer +local value of it is a mistake." + (let ((persp-show-modestring 'header) + (default-header-line-format (default-value 'header-line-format))) + ;; Since `persp-test-with-persp' may change in the future, do not + ;; use it. We need to avoid switching to another buffer than the + ;; *dummy* buffer just before `persp-mode' is disabled. For this + ;; test to work, a buffer with a locally modified header needs to + ;; be the current buffer when `persp-mode' is disabled. + (persp-mode 1) + (should (switch-to-buffer "*dummy*")) + (should (equal (buffer-name) "*dummy*")) + (setq header-line-format "custom header") + ;; This is just being paranoid about the header's default value. + (should-not (equal header-line-format default-header-line-format)) + (should-not (equal header-line-format (default-value 'header-line-format))) + (persp-mode -1) + (should (equal (buffer-name) "*dummy*")) + (should (equal header-line-format "custom header")) + (let ((updated-header-line-format (default-value 'header-line-format))) + (should (equal updated-header-line-format default-header-line-format))) + ;; Cleanup. + (kill-buffer "*dummy*"))) + (ert-deftest basic-persp-creation-deletion () (persp-test-with-persp (should (equal (list "main") (persp-names))) |