summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2025-10-26 22:43:28 -0500
committerCraig Jennings <c@cjennings.net>2025-10-26 22:43:28 -0500
commite66d68ab5f16311f06bad3a8ed8ab376a3895e82 (patch)
treecac01c714ec8d9cc1f04129a1c96aca99c8384e6 /tests
parent671539db07570ceba1e078c944e49bbbe8d69702 (diff)
chore:org-agenda: Remove outdated test file and unused code
Deleted `test-custom-org-agenda-functions.el.disabled` as it was obsolete. Removed commented-out global keybinding in `org-agenda-config.el` for clarity.
Diffstat (limited to 'tests')
-rw-r--r--tests/test-custom-org-agenda-functions.el.disabled94
1 files changed, 0 insertions, 94 deletions
diff --git a/tests/test-custom-org-agenda-functions.el.disabled b/tests/test-custom-org-agenda-functions.el.disabled
deleted file mode 100644
index 44f9f43d..00000000
--- a/tests/test-custom-org-agenda-functions.el.disabled
+++ /dev/null
@@ -1,94 +0,0 @@
-;;; test-custom-org-agenda-functions.el --- Tests for custom functions in org-agenda -*- lexical-binding: t; -*-
-
-;;; Commentary:
-;; This tests the custom functions created to build the main agenda in org-agenda-config.el
-
-;;; Code:
-
-(add-to-list 'load-path (concat user-emacs-directory "modules"))
-(require 'org-agenda-config)
-
-(ert-deftest test-cj/org-skip-subtree-if-habit-positive ()
- (with-temp-buffer
- (insert "* TODO [#A] Test task\n")
- (insert ":PROPERTIES:\n")
- (insert ":STYLE: habit\n")
- (insert ":RESET_CHECK_BOXES: t\n")
- (insert ":END:\n")
- (org-mode)
- (goto-char (point-min))
- (should (not (eq nil (cj/org-skip-subtree-if-habit))))))
-
-(ert-deftest test-cj/org-skip-subtree-if-habit-negative ()
- (with-temp-buffer
- (insert "* TODO [#A] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-habit)))))
-
-(ert-deftest test-cj/org-skip-subtree-if-priority-positive ()
- (with-temp-buffer
- (insert "* TODO [#A] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (not (eq nil (cj/org-skip-subtree-if-priority ?A))))))
-
-(ert-deftest test-cj/org-skip-subtree-if-priority-negative ()
- (erase-buffer)
- (insert "* TODO [#B] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-priority ?A))))
-
-(ert-deftest test-cj/org-skip-subtree-if-priority-boundary0 ()
- (erase-buffer)
- (insert "* TODO Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-priority ?A))))
-
-(ert-deftest test-cj/org-skip-subtree-if-priority-boundary1 ()
- (erase-buffer)
- (insert "* Test entry\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-priority ?A))))
-
-(ert-deftest test-cj/org-skip-subtree-if-keyword-positive ()
- (with-temp-buffer
- (insert "* TODO [#A] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (not (eq nil (cj/org-skip-subtree-if-keyword '("TODO")))))))
-
-(ert-deftest test-cj/org-skip-subtree-if-keyword-positive-multiple ()
- (with-temp-buffer
- (insert "* PROJECT Test entry\n")
- (org-mode)
- (goto-char (point-min))
- (should (not (eq nil (cj/org-skip-subtree-if-keyword '("TODO" "PROJECT")))))))
-
-(ert-deftest test-cj/org-skip-subtree-if-keyword-negative ()
- (erase-buffer)
- (insert "* PROJECT [#A] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-keyword '("TODO")))))
-
-(ert-deftest test-cj/org-skip-subtree-if-keyword-negative-superset ()
- (erase-buffer)
- (insert "* PROJECT [#A] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-keyword '("TODOTODO")))))
-
-(ert-deftest test-cj/org-skip-subtree-if-keyword-negative-multiple ()
- (erase-buffer)
- (insert "* PROJECT [#A] Test task\n")
- (org-mode)
- (goto-char (point-min))
- (should (eq nil (cj/org-skip-subtree-if-keyword '("TODO" "DONE")))))
-
-
-(provide 'test-custom-org-agenda-functions)
-;;; test-custom-org-agenda-functions.el ends here.