blob: 20e52d6754562a7a80cfca36cbaf2307d5b31c35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
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
|
