diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/test-org-roam-config-copy-todo-to-today.el | 15 | ||||
| -rw-r--r-- | tests/test-org-webclipper-commands.el | 16 |
2 files changed, 22 insertions, 9 deletions
diff --git a/tests/test-org-roam-config-copy-todo-to-today.el b/tests/test-org-roam-config-copy-todo-to-today.el index bcac5a26..c642020d 100644 --- a/tests/test-org-roam-config-copy-todo-to-today.el +++ b/tests/test-org-roam-config-copy-todo-to-today.el @@ -51,7 +51,8 @@ (setq org-state "DONE") ; Dynamic variable used by org-mode hooks (cl-letf (((symbol-function 'cj/org-roam-copy-todo-to-today) (lambda () (setq copy-function-called t)))) - (run-hooks 'org-after-todo-state-change-hook) + (let ((buffer-file-name "/tmp/test-org-roam-fake.org")) + (run-hooks 'org-after-todo-state-change-hook)) (should copy-function-called))) (test-org-roam-todo-hook-teardown))) @@ -67,7 +68,8 @@ (setq org-state "CANCELLED") ; Dynamic variable used by org-mode hooks (cl-letf (((symbol-function 'cj/org-roam-copy-todo-to-today) (lambda () (setq copy-function-called t)))) - (run-hooks 'org-after-todo-state-change-hook) + (let ((buffer-file-name "/tmp/test-org-roam-fake.org")) + (run-hooks 'org-after-todo-state-change-hook)) (should copy-function-called))) (test-org-roam-todo-hook-teardown))) @@ -96,7 +98,8 @@ (setq org-state "DONE") ; New state is DONE (cl-letf (((symbol-function 'cj/org-roam-copy-todo-to-today) (lambda () (setq copy-function-called t)))) - (run-hooks 'org-after-todo-state-change-hook) + (let ((buffer-file-name "/tmp/test-org-roam-fake.org")) + (run-hooks 'org-after-todo-state-change-hook)) (should copy-function-called))) (test-org-roam-todo-hook-teardown))) @@ -112,7 +115,8 @@ (setq org-state "DONE") ; New state is DONE (cl-letf (((symbol-function 'cj/org-roam-copy-todo-to-today) (lambda () (setq copy-function-called t)))) - (run-hooks 'org-after-todo-state-change-hook) + (let ((buffer-file-name "/tmp/test-org-roam-fake.org")) + (run-hooks 'org-after-todo-state-change-hook)) (should copy-function-called))) (test-org-roam-todo-hook-teardown))) @@ -128,7 +132,8 @@ (setq org-state "CANCELLED") ; New state is CANCELLED (cl-letf (((symbol-function 'cj/org-roam-copy-todo-to-today) (lambda () (setq copy-function-called t)))) - (run-hooks 'org-after-todo-state-change-hook) + (let ((buffer-file-name "/tmp/test-org-roam-fake.org")) + (run-hooks 'org-after-todo-state-change-hook)) (should copy-function-called))) (test-org-roam-todo-hook-teardown))) diff --git a/tests/test-org-webclipper-commands.el b/tests/test-org-webclipper-commands.el index 3871774c..57c7b5fc 100644 --- a/tests/test-org-webclipper-commands.el +++ b/tests/test-org-webclipper-commands.el @@ -29,19 +29,27 @@ ;;; cj/webclipper-ensure-initialized -(ert-deftest test-webclipper-ensure-initialized-registers-protocol-and-templates () - "Normal: first call sets up the protocol entry + W and w capture templates, -and flips the initialized flag." +(ert-deftest test-webclipper-ensure-initialized-registers-templates () + "Normal: first call sets up the W and w capture templates and flips the +initialized flag. Protocol registration lives in the +`with-eval-after-load 'org-protocol' block at the bottom of the module -- +asserted separately below in `test-webclipper-protocol-registered-via-after-load'." (let ((cj/webclipper-initialized nil) (org-protocol-protocol-alist nil) (org-capture-templates nil)) (cl-letf (((symbol-function 'require) (lambda (&rest _) t))) (cj/webclipper-ensure-initialized)) (should cj/webclipper-initialized) - (should (assoc "webclip" org-protocol-protocol-alist)) (should (assoc "W" org-capture-templates)) (should (assoc "w" org-capture-templates)))) +(ert-deftest test-webclipper-protocol-registered-via-after-load () + "Loading org-webclipper installs a `with-eval-after-load 'org-protocol' block +that registers the webclip entry. Providing `'org-protocol' fires the block." + (let ((org-protocol-protocol-alist nil)) + (provide 'org-protocol) + (should (assoc "webclip" org-protocol-protocol-alist)))) + (ert-deftest test-webclipper-ensure-initialized-is-idempotent () "Boundary: second call doesn't re-register or duplicate templates." (let ((cj/webclipper-initialized nil) |