summaryrefslogtreecommitdiff
path: root/modules/test-runner.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2025-10-26 23:06:31 -0500
committerCraig Jennings <c@cjennings.net>2025-10-26 23:06:31 -0500
commitcd64af4642fd54a4d7b7be93bfb317fc64f623a6 (patch)
tree3c8a0e3814d987137ab8a987382f1237d0c97324 /modules/test-runner.el
parentdf21760636366305a4e2170516479ae7792dab3b (diff)
chore: Remove redundant autoload directives from modules
Remove unnecessary autoload directives from various functions across multiple modules, cleaning up the codebase and improving readability. These directives were redundant and not needed for the current project setup.
Diffstat (limited to 'modules/test-runner.el')
-rw-r--r--modules/test-runner.el13
1 files changed, 0 insertions, 13 deletions
diff --git a/modules/test-runner.el b/modules/test-runner.el
index b4c40820..b66efc81 100644
--- a/modules/test-runner.el
+++ b/modules/test-runner.el
@@ -42,7 +42,6 @@ Either 'all (run all tests) or 'focused (run only focused tests).")
;;; Core Functions
-;;;###autoload
(defun cj/test--get-test-directory ()
"Return the test directory path for the current project.
@@ -60,7 +59,6 @@ Falls back to =cj/test-global-directory= if not found or not in a project."
((file-directory-p tests-dir) tests-dir)
(t cj/test-global-directory))))))
-;;;###autoload
(defun cj/test--get-test-files ()
"Return a list of test file names (without path) in the appropriate test directory."
(let ((dir (cj/test--get-test-directory)))
@@ -68,7 +66,6 @@ Falls back to =cj/test-global-directory= if not found or not in a project."
(mapcar #'file-name-nondirectory
(directory-files dir t "^test-.*\\.el$")))))
-;;;###autoload
(defun cj/test-load-all ()
"Load all test files from the appropriate test directory."
(interactive)
@@ -90,7 +87,6 @@ Falls back to =cj/test-global-directory= if not found or not in a project."
(error-message-string err)))))
(message "Loaded %d test file(s)" loaded-count))))
-;;;###autoload
(defun cj/test-focus-add ()
"Select test file(s) to add to the focused list."
(interactive)
@@ -114,7 +110,6 @@ Falls back to =cj/test-global-directory= if not found or not in a project."
(when (called-interactively-p 'interactive)
(cj/test-view-focused))))))
-;;;###autoload
(defun cj/test-focus-add-this-buffer-file ()
"Add the current buffer's file to the focused test list."
(interactive)
@@ -132,7 +127,6 @@ Falls back to =cj/test-global-directory= if not found or not in a project."
(when (called-interactively-p 'interactive)
(cj/test-view-focused))))))
-;;;###autoload
(defun cj/test-focus-remove ()
"Remove a test file from the focused list."
(interactive)
@@ -147,7 +141,6 @@ Falls back to =cj/test-global-directory= if not found or not in a project."
(when (called-interactively-p 'interactive)
(cj/test-view-focused)))))
-;;;###autoload
(defun cj/test-focus-clear ()
"Clear all focused test files."
(interactive)
@@ -168,7 +161,6 @@ Returns a list of test name symbols defined in the file."
(push (match-string 1) test-names)))
test-names))
-;;;###autoload
(defun cj/test-run-focused ()
"Run only the focused test files."
(interactive)
@@ -201,7 +193,6 @@ Returns a list of test name symbols defined in the file."
(when (and dir (file-directory-p dir))
(add-to-list 'load-path dir))))
-;;;###autoload
(defun cj/run-test-at-point ()
"Run the ERT test at point.
If point is inside an `ert-deftest` definition, run that test only.
@@ -220,21 +211,18 @@ Otherwise, message that no test is found."
(error (message "No ERT test methods found at point."))))
(goto-char original-point)))
-;;;###autoload
(defun cj/test-run-all ()
"Load and run all tests."
(interactive)
(cj/test-load-all)
(ert t))
-;;;###autoload
(defun cj/test-toggle-mode ()
"Toggle between 'all and 'focused test execution modes."
(interactive)
(setq cj/test-mode (if (eq cj/test-mode 'all) 'focused 'all))
(message "Test mode: %s" cj/test-mode))
-;;;###autoload
(defun cj/test-view-focused ()
"Display test files in focus."
(interactive)
@@ -243,7 +231,6 @@ Otherwise, message that no test is found."
(message "Focused files: %s"
(mapconcat 'identity cj/test-focused-files ", "))))
-;;;###autoload
(defun cj/test-run-smart ()
"Run tests based on current mode (all or focused)."
(interactive)