test: presentation-prompt return values and dispatcher

7 ERT tests covering the card-prompt return-value contract:

- org-drill-presentation-prompt-in-mini-buffer with input-pending-p
  and read-key-sequence both mocked: quit → nil, edit → 'edit,
  skip → 'skip, any-other-key → t
- explicit PROMPT arg appears in the formatted full-prompt
- org-drill-presentation-prompt dispatcher routes by
  org-drill-presentation-prompt-with-typing (nil → mini-buffer
  variant, non-nil → in-buffer variant)

1 files changed, 125 insertions, 0 deletions

diff --git a/tests/test-org-drill-presentation-prompt.el b/tests/test-org-drill-presentation-prompt.el
new file mode 100644
index 0000000..9518457
--- /dev/null
+++ b/tests/test-org-drill-presentation-prompt.el
@@ -0,0 +1,125 @@
+;;; test-org-drill-presentation-prompt.el --- Tests for the card-prompt return values  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Tests for `org-drill-presentation-prompt-in-mini-buffer'.  The
+;; function shows the card body, runs a busy-wait loop until the user
+;; presses a key, and returns:
+;;
+;;   nil    — quit key pressed
+;;   'edit  — edit key pressed
+;;   'skip  — skip key pressed
+;;   t      — any other key (user wants to see the answer)
+;;
+;; Tests mock both `input-pending-p' (to bypass the busy-wait) and
+;; `read-key-sequence' (to inject the desired key).
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+(require 'org)
+(require 'org-drill)
+
+;;;; Helpers
+
+(defmacro with-fresh-drill-entry (&rest body)
+  (declare (indent 0))
+  `(with-temp-buffer
+     (let ((org-startup-folded nil))
+       (insert "* Question :drill:\nbody\n")
+       (org-mode)
+       (goto-char (point-min))
+       ,@body)))
+
+(defmacro with-key-input (key &rest body)
+  "Run BODY with the prompt's busy-wait skipped and `read-key-sequence' returning KEY."
+  (declare (indent 1))
+  `(cl-letf (((symbol-function 'input-pending-p) (lambda () t))
+             ((symbol-function 'read-key-sequence) (lambda (_) ,key))
+             ((symbol-function 'sit-for) #'ignore))
+     ,@body))
+
+;;;; Return values
+
+(ert-deftest test-org-drill-presentation-prompt-quit-returns-nil ()
+  (with-fresh-drill-entry
+    (with-key-input (string org-drill--quit-key)
+      (let ((session (org-drill-session)))
+        (should (null (org-drill-presentation-prompt-in-mini-buffer session)))))))
+
+(ert-deftest test-org-drill-presentation-prompt-edit-returns-edit ()
+  (with-fresh-drill-entry
+    (with-key-input (string org-drill--edit-key)
+      (let ((session (org-drill-session)))
+        (should (eq 'edit (org-drill-presentation-prompt-in-mini-buffer session)))))))
+
+(ert-deftest test-org-drill-presentation-prompt-skip-returns-skip ()
+  (with-fresh-drill-entry
+    (with-key-input (string org-drill--skip-key)
+      (let ((session (org-drill-session)))
+        (should (eq 'skip (org-drill-presentation-prompt-in-mini-buffer session)))))))
+
+(ert-deftest test-org-drill-presentation-prompt-answer-returns-t ()
+  "Pressing any non-control key (here SPC) returns t — `show me the answer'."
+  (with-fresh-drill-entry
+    (with-key-input " "
+      (let ((session (org-drill-session)))
+        (should (eq t (org-drill-presentation-prompt-in-mini-buffer session)))))))
+
+(ert-deftest test-org-drill-presentation-prompt-honors-explicit-prompt-arg ()
+  "An explicit PROMPT arg is honored — the user's prompt text appears in
+the formatted full-prompt that gets displayed.
+Lets the busy-wait loop run one iteration so message actually fires."
+  (with-fresh-drill-entry
+    (let ((messages-seen nil)
+          (loop-iterations 0))
+      (cl-letf (((symbol-function 'input-pending-p)
+                 (lambda ()
+                   (cl-incf loop-iterations)
+                   ;; Return nil first time (run loop body), then t (exit).
+                   (> loop-iterations 1)))
+                ((symbol-function 'read-key-sequence) (lambda (_) " "))
+                ((symbol-function 'sit-for) #'ignore)
+                ((symbol-function 'message)
+                 (lambda (fmt &rest args)
+                   (push (apply #'format fmt args) messages-seen))))
+        (let ((session (org-drill-session)))
+          (org-drill-presentation-prompt-in-mini-buffer session "MY-CUSTOM-PROMPT")
+          (should (cl-some (lambda (m) (string-match-p "MY-CUSTOM-PROMPT" m))
+                           messages-seen)))))))
+
+;;;; org-drill-presentation-prompt (top-level dispatcher)
+
+(ert-deftest test-org-drill-presentation-prompt-dispatches-to-mini-buffer-by-default ()
+  "When `org-drill-presentation-prompt-with-typing' is nil, the dispatcher
+sends the call to the mini-buffer variant."
+  (with-fresh-drill-entry
+    (let ((mini-called nil)
+          (buffer-called nil)
+          (org-drill-presentation-prompt-with-typing nil))
+      (cl-letf (((symbol-function 'org-drill-presentation-prompt-in-mini-buffer)
+                 (lambda (&rest _) (setq mini-called t) t))
+                ((symbol-function 'org-drill-presentation-prompt-in-buffer)
+                 (lambda (&rest _) (setq buffer-called t) t)))
+        (org-drill-presentation-prompt (org-drill-session))
+        (should mini-called)
+        (should-not buffer-called)))))
+
+(ert-deftest test-org-drill-presentation-prompt-dispatches-to-buffer-when-typing ()
+  "When `org-drill-presentation-prompt-with-typing' is non-nil, dispatcher
+goes to the in-buffer variant."
+  (with-fresh-drill-entry
+    (let ((mini-called nil)
+          (buffer-called nil)
+          (org-drill-presentation-prompt-with-typing t))
+      (cl-letf (((symbol-function 'org-drill-presentation-prompt-in-mini-buffer)
+                 (lambda (&rest _) (setq mini-called t) t))
+                ((symbol-function 'org-drill-presentation-prompt-in-buffer)
+                 (lambda (&rest _) (setq buffer-called t) t)))
+        (org-drill-presentation-prompt (org-drill-session))
+        (should-not mini-called)
+        (should buffer-called)))))
+
+(provide 'test-org-drill-presentation-prompt)
+
+;;; test-org-drill-presentation-prompt.el ends here