test: Spanish verb presenter and top-level drill commands

10 ERT tests:

- present-spanish-verb (six-way cl-random branch): 0=present-translate,
  2=past-translate, 4=future-perfect (mocked cl-random + presentation
  prompt)
- org-drill-cram: passes cram=t to org-drill, accepts scope arg
- org-drill-cram-tree: delegates to cram with scope=tree
- org-drill-tree: passes scope=tree to org-drill
- org-drill-directory: passes scope=directory
- org-drill-again: resumes (resume-p=t) when prior session has
  pending entries, starts fresh otherwise

1 files changed, 151 insertions, 0 deletions

diff --git a/tests/test-org-drill-spanish-and-top-level.el b/tests/test-org-drill-spanish-and-top-level.el
new file mode 100644
index 0000000..61fc546
--- /dev/null
+++ b/tests/test-org-drill-spanish-and-top-level.el
@@ -0,0 +1,151 @@
+;;; test-org-drill-spanish-and-top-level.el --- Tests for Spanish verb presenter and top-level commands  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for:
+;;
+;; - `org-drill-present-spanish-verb': six-way cl-case dispatch on
+;;   cl-random, each case shows a different tense + visibility combo
+;; - `org-drill-cram', `org-drill-cram-tree', `org-drill-tree',
+;;   `org-drill-directory', `org-drill-again', `org-drill-resume':
+;;   thin wrappers around `org-drill' with specific args.
+;;
+;; All call `org-drill-presentation-prompt' or `org-drill' itself,
+;; which we mock to spy on the dispatch.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+(require 'org)
+(require 'org-drill)
+
+;;;; Helpers
+
+(defmacro with-card-buffer (content &rest body)
+  (declare (indent 1))
+  `(with-temp-buffer
+     (let ((org-startup-folded nil))
+       (insert ,content)
+       (org-mode)
+       (goto-char (point-min))
+       ,@body)))
+
+(defmacro with-mocked-org-drill (&rest body)
+  "Run BODY with `org-drill' replaced by a stub that records its args
+to a captured `org-drill-args' variable."
+  `(let ((org-drill-args nil))
+     (cl-letf (((symbol-function 'org-drill)
+                (lambda (&rest args) (setq org-drill-args args))))
+       ,@body)))
+
+;;;; org-drill-present-spanish-verb (six branches)
+
+(ert-deftest test-present-spanish-verb-branch-0-present-tense-translate ()
+  (with-card-buffer "* Verb :drill:
+:PROPERTIES:
+:DRILL_CARD_TYPE: spanish_verb
+:END:
+
+** Infinitive
+hablar
+** English
+to speak
+** Present Tense
+hablo, hablas, ...
+"
+    (let ((shown-prompt nil))
+      (cl-letf (((symbol-function 'cl-random) (lambda (_) 0))
+                ((symbol-function 'org-drill-presentation-prompt)
+                 (lambda (_session &optional prompt &rest _)
+                   (setq shown-prompt prompt) t))
+                ((symbol-function 'org-drill--show-latex-fragments) #'ignore)
+                ((symbol-function 'org-display-inline-images) #'ignore))
+        (org-drill-present-spanish-verb (org-drill-session))
+        (should (string-match-p "present.* tense" shown-prompt))
+        (should (string-match-p "Translate" shown-prompt))))))
+
+(ert-deftest test-present-spanish-verb-branch-2-past-tense-translate ()
+  (with-card-buffer "* Verb :drill:\n** Infinitive\nhablar\n** English\nto speak\n** Past Tense\nfoo\n"
+    (let ((shown-prompt nil))
+      (cl-letf (((symbol-function 'cl-random) (lambda (_) 2))
+                ((symbol-function 'org-drill-presentation-prompt)
+                 (lambda (_session &optional prompt &rest _)
+                   (setq shown-prompt prompt) t))
+                ((symbol-function 'org-drill--show-latex-fragments) #'ignore)
+                ((symbol-function 'org-display-inline-images) #'ignore))
+        (org-drill-present-spanish-verb (org-drill-session))
+        (should (string-match-p "past.* tense" shown-prompt))))))
+
+(ert-deftest test-present-spanish-verb-branch-4-future-perfect ()
+  (with-card-buffer "* Verb :drill:\n** Infinitive\nhablar\n** English\nfoo\n** Future Perfect Tense\nbar\n"
+    (let ((shown-prompt nil))
+      (cl-letf (((symbol-function 'cl-random) (lambda (_) 4))
+                ((symbol-function 'org-drill-presentation-prompt)
+                 (lambda (_session &optional prompt &rest _)
+                   (setq shown-prompt prompt) t))
+                ((symbol-function 'org-drill--show-latex-fragments) #'ignore)
+                ((symbol-function 'org-display-inline-images) #'ignore))
+        (org-drill-present-spanish-verb (org-drill-session))
+        (should (string-match-p "future perfect" shown-prompt))))))
+
+;;;; org-drill-cram and friends
+
+(ert-deftest test-org-drill-cram-passes-cram-flag ()
+  "org-drill-cram delegates to org-drill with cram=t."
+  (with-mocked-org-drill
+    (org-drill-cram)
+    ;; Args: (scope drill-match resume-p cram) → (nil nil nil t)
+    (should (equal '(nil nil nil t) org-drill-args))))
+
+(ert-deftest test-org-drill-cram-passes-scope ()
+  (with-mocked-org-drill
+    (org-drill-cram 'tree "+drill")
+    (should (equal '(tree "+drill" nil t) org-drill-args))))
+
+(ert-deftest test-org-drill-cram-tree-uses-tree-scope ()
+  (let ((cram-args nil))
+    (cl-letf (((symbol-function 'org-drill-cram)
+               (lambda (&rest args) (setq cram-args args))))
+      (org-drill-cram-tree)
+      (should (equal '(tree) cram-args)))))
+
+(ert-deftest test-org-drill-tree-uses-tree-scope ()
+  (with-mocked-org-drill
+    (org-drill-tree)
+    (should (eq 'tree (car org-drill-args)))))
+
+(ert-deftest test-org-drill-directory-uses-directory-scope ()
+  (with-mocked-org-drill
+    (org-drill-directory)
+    (should (eq 'directory (car org-drill-args)))))
+
+;;;; org-drill-again
+
+(ert-deftest test-org-drill-again-with-leftover-items-resumes ()
+  "If the last session has pending entries, org-drill-again resumes (resume-p=t)."
+  (let ((session (org-drill-session))
+        (org-drill-args nil))
+    (oset session new-entries (list (let ((m (make-marker))) (set-marker m 1) m)))
+    (oset session start-time (float-time (current-time)))
+    (let ((org-drill-last-session session))
+      (cl-letf (((symbol-function 'org-drill)
+                 (lambda (&rest args) (setq org-drill-args args))))
+        (org-drill-again)
+        ;; Should pass resume-p=t (third positional arg)
+        (should (eq t (nth 2 org-drill-args)))))))
+
+(ert-deftest test-org-drill-again-empty-session-starts-fresh ()
+  "If the last session has no pending entries, fall through to a fresh drill."
+  (let ((session (org-drill-session))
+        (org-drill-args nil))
+    (let ((org-drill-last-session session))
+      (cl-letf (((symbol-function 'org-drill)
+                 (lambda (&rest args) (setq org-drill-args args))))
+        (org-drill-again)
+        ;; Fresh: no resume-p flag.
+        (should (or (null org-drill-args)
+                    (null (nth 2 org-drill-args))))))))
+
+(provide 'test-org-drill-spanish-and-top-level)
+
+;;; test-org-drill-spanish-and-top-level.el ends here