diff options
| -rw-r--r-- | tests/test-org-drill-small-branch-coverage.el | 79 |
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 |