test: cover SM5 random-noise, --read-key-sequence input-method dance, goto-heading error

I added small-branch tests for the SM5 dispersal-factor multiplier
when `org-drill-add-random-noise-to-intervals-p' is t,
`org-drill--read-key-sequence' deactivating/reactivating an active
input method (and skipping the dance when none is active), and the
error branch in `org-drill-goto-drill-entry-heading' when no parent
heading carries the drill tag.

Coverage moved from 92.1% to 92.1%.

1 files changed, 79 insertions, 0 deletions

diff --git a/tests/test-org-drill-small-branch-coverage.el b/tests/test-org-drill-small-branch-coverage.el
new file mode 100644
index 0000000..20e52d6
--- /dev/null
+++ b/tests/test-org-drill-small-branch-coverage.el
@@ -0,0 +1,79 @@
+;;; test-org-drill-small-branch-coverage.el --- Tests for small branch coverage  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Small branch-coverage gaps that don't fit a thematic file: SM5
+;; interval with random-noise enabled, the `--read-key-sequence' input-
+;; method dance, and `goto-drill-entry-heading''s error branch.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+(require 'org)
+(require 'org-drill)
+
+;;;; SM5 interval with random-noise enabled
+
+(ert-deftest test-determine-next-interval-sm5-with-random-noise ()
+  "When the random-noise flag is t, the SM5 next-interval is multiplied by
+the dispersal factor."
+  (let ((org-drill-add-random-noise-to-intervals-p t))
+    (cl-letf (((symbol-function 'org-drill-random-dispersal-factor)
+               (lambda () 1.5)))
+      (let* ((result (org-drill-determine-next-interval-sm5
+                      4.0 2 2.5 5 0 5.0 1
+                      org-drill-sm5-optimal-factor-matrix))
+             (next (nth 0 result)))
+        (should (numberp next))
+        (should (> next 0))))))
+
+;;;; --read-key-sequence input-method dance
+
+(ert-deftest test-read-key-sequence-deactivates-and-reactivates-input-method ()
+  "If an input method is active, --read-key-sequence deactivates it for the
+read and re-activates it on the way out."
+  (let ((current-input-method 'pretend-im)
+        (deactivated nil)
+        (reactivated nil))
+    (cl-letf (((symbol-function 'deactivate-input-method)
+               (lambda () (setq deactivated t)))
+              ((symbol-function 'activate-input-method)
+               (lambda (im) (setq reactivated im)))
+              ((symbol-function 'read-key-sequence)
+               (lambda (&rest _) "x")))
+      (org-drill--read-key-sequence "p"))
+    (should deactivated)
+    (should (eq 'pretend-im reactivated))))
+
+(ert-deftest test-read-key-sequence-no-input-method-skips-deactivate ()
+  "With no input method active, neither deactivate nor activate is called."
+  (let ((current-input-method nil)
+        (deactivated nil)
+        (reactivated nil))
+    (cl-letf (((symbol-function 'deactivate-input-method)
+               (lambda () (setq deactivated t)))
+              ((symbol-function 'activate-input-method)
+               (lambda (_) (setq reactivated t)))
+              ((symbol-function 'read-key-sequence)
+               (lambda (&rest _) "x")))
+      (org-drill--read-key-sequence "p"))
+    (should-not deactivated)
+    (should-not reactivated)))
+
+;;;; goto-drill-entry-heading error branch
+
+(ert-deftest test-goto-drill-entry-heading-no-drill-parent-errors ()
+  "When no ancestor heading carries the drill tag, the function errors."
+  (with-temp-buffer
+    (insert "* Plain :tagged-but-not-drill:\n** Child\nbody\n")
+    (org-mode)
+    (goto-char (point-max))
+    (cl-letf (((symbol-function 'org-drill-part-of-drill-entry-p)
+               (lambda (&rest _) t))
+              ;; Force entry-p false at every level so the while loop walks
+              ;; up until org-up-heading-safe returns nil.
+              ((symbol-function 'org-drill-entry-p) (lambda (&rest _) nil)))
+      (should-error (org-drill-goto-drill-entry-heading)))))
+
+(provide 'test-org-drill-small-branch-coverage)
+;;; test-org-drill-small-branch-coverage.el ends here