diff options
Diffstat (limited to 'tests/test-org-config-org-log-done.el')
| -rw-r--r-- | tests/test-org-config-org-log-done.el | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/tests/test-org-config-org-log-done.el b/tests/test-org-config-org-log-done.el new file mode 100644 index 00000000..2eedef2a --- /dev/null +++ b/tests/test-org-config-org-log-done.el @@ -0,0 +1,25 @@ +;;; test-org-config-org-log-done.el --- Lock org-log-done to one home -*- lexical-binding: t; -*- + +;;; Commentary: +;; `org-log-done' had two setters: `cj/org-todo-settings' in org-config.el set +;; it nil and org-roam-config.el set it to 'time, so the effective value was +;; load-order-dependent. `cj/org-todo-settings' is now the single home and +;; sets 'time, which records a CLOSED timestamp on TODO->DONE — the behavior +;; the dated-completion workflow depends on. This test calls the settings +;; function in isolation (no org-roam-config required) so it would fail if the +;; nil value or the org-roam duplicate ever came back. + +;;; Code: + +(require 'ert) +(require 'org) ;; declares org-log-done special so the let below is dynamic +(require 'org-config) + +(ert-deftest test-org-config-org-log-done-set-to-time () + "Normal: cj/org-todo-settings sets org-log-done to 'time." + (let ((org-log-done nil)) + (cj/org-todo-settings) + (should (eq org-log-done 'time)))) + +(provide 'test-org-config-org-log-done) +;;; test-org-config-org-log-done.el ends here |