1 files changed, 47 insertions, 0 deletions
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