From 1338b2ae757b7143fe4d211fc5a354c73cee526b Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Tue, 26 May 2026 18:09:21 -0500 Subject: chore: coverage, autoload fix, and internal cleanup for org-drill A batch of test-coverage and hardening work, squashed from the test-work branch. Tests: deduplicated a colliding leitner-capture test name so make test-name loads again. Added SM2 assert-failure cases, the six basic multicloze variant delegations, the three English-side spanish-verb branches, and org-drill-current-scope branch coverage. Fix: the entry-point commands (org-drill itself, cram-tree, tree, directory, resume, relearn-item, strip-all-data, merge-buffers) carried no autoload cookies, so M-x failed from a fresh install until something pulled the file in. They're autoloaded now. Perf: org-drill-shuffle was quadratic because it indexed a list with elt on every swap. It runs a linear Fisher-Yates pass over a vector now, and it checks its argument is a list. Feat: added org-drill-version, a constant plus an interactive command, so a bug reporter doesn't have to open the file header. Refactor: extracted org-drill--format-tense-mood, shared by the two verb-conjugation presenters that each carried a copy. Docs: explained the SM8 magic numbers in the simple8 helpers as empirical fits rather than tunable knobs. --- tests/test-org-drill-autoloads.el | 47 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 47 insertions(+) create mode 100644 tests/test-org-drill-autoloads.el (limited to 'tests/test-org-drill-autoloads.el') diff --git a/tests/test-org-drill-autoloads.el b/tests/test-org-drill-autoloads.el new file mode 100644 index 0000000..5bfefce --- /dev/null +++ b/tests/test-org-drill-autoloads.el @@ -0,0 +1,47 @@ +;;; test-org-drill-autoloads.el --- Autoload-cookie coverage -*- lexical-binding: t; -*- + +;;; Commentary: +;; The user-facing entry-point commands must carry an `;;;###autoload' cookie +;; so they work from a fresh package install before org-drill is loaded. +;; Without it, `M-x org-drill-resume' (etc.) fails with "command not found" +;; until something pulls the file in. +;; +;; This reads the source via `find-library-name' (the .el, not a compiled +;; .elc which would have the cookies stripped) and checks each command. + +;;; Code: + +(require 'ert) +(require 'org-drill) + +(defconst test-org-drill-autoloaded-commands + '("org-drill" + "org-drill-cram" + "org-drill-cram-tree" + "org-drill-tree" + "org-drill-directory" + "org-drill-again" + "org-drill-resume" + "org-drill-relearn-item" + "org-drill-strip-all-data" + "org-drill-merge-buffers") + "Entry-point commands that should be autoloaded.") + +(ert-deftest test-org-drill-entry-commands-carry-autoload-cookie () + "Each user-facing entry-point command is preceded by an autoload cookie." + (let ((src (with-temp-buffer + (insert-file-contents (find-library-name "org-drill")) + (buffer-string)))) + (dolist (cmd test-org-drill-autoloaded-commands) + (should (string-match-p + (concat ";;;###autoload\n(defun " (regexp-quote cmd) " ") + src))))) + +(ert-deftest test-org-drill-entry-commands-are-interactive () + "Every command in the autoload list is actually an interactive command." + (dolist (cmd test-org-drill-autoloaded-commands) + (should (commandp (intern cmd))))) + +(provide 'test-org-drill-autoloads) + +;;; test-org-drill-autoloads.el ends here -- cgit v1.2.3