diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-pearl-format.el | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/test-pearl-format.el b/tests/test-pearl-format.el index 96ec395..1119734 100644 --- a/tests/test-pearl-format.el +++ b/tests/test-pearl-format.el @@ -205,5 +205,29 @@ visible while property drawers fold away." (pearl--restore-page-visibility) (should (test-pearl--line-visible-p "^:LINEAR-ID:")))))) +;;; --hide-or-tidy-drawers (optional org-tidy integration) + +;; org-tidy isn't a test dependency, so declare its mode var special here; the +;; `let' bindings below then bind it dynamically where `bound-and-true-p' reads. +(defvar org-tidy-mode) + +(ert-deftest test-pearl-hide-or-tidy-uses-org-tidy-when-active () + "With org-tidy-mode on, drawer hiding re-tidies via `org-tidy-buffer'." + (let ((tidied nil) (org-tidy-mode t)) + (cl-letf (((symbol-function 'org-tidy-buffer) (lambda () (setq tidied t))) + ((symbol-function 'pearl--hide-all-drawers) + (lambda () (error "should not native-fold when org-tidy is on")))) + (pearl--hide-or-tidy-drawers)) + (should tidied))) + +(ert-deftest test-pearl-hide-or-tidy-folds-natively-when-inactive () + "With org-tidy off, drawer hiding falls back to the native fold." + (let ((folded nil) (org-tidy-mode nil)) + (cl-letf (((symbol-function 'pearl--hide-all-drawers) (lambda () (setq folded t))) + ((symbol-function 'org-tidy-buffer) + (lambda () (error "should not tidy when org-tidy is off")))) + (pearl--hide-or-tidy-drawers)) + (should folded))) + (provide 'test-pearl-format) ;;; test-pearl-format.el ends here |