blob: cb0ece7663be93fc6675a9608b2cd1b1d318f1e3 (
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
|
;;; 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
(make-org-drill-card-state
:last-interval 4.0 :repetitions 2 :ease 2.5
:failures 0 :meanq 5.0 :total-repeats 1)
5
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)))))
;;;; org-drill-test-display (developer helper)
(ert-deftest test-org-drill-test-display-toggles-zysygy-tag ()
"The dev helper toggles a `zysygy' tag on, runs entry-f, then toggles off."
(with-temp-buffer
(insert "* Item\nbody\n")
(org-mode)
(goto-char (point-min))
(let ((entry-f-called nil))
(cl-letf (((symbol-function 'org-drill-entry-f)
(lambda (&rest _) (setq entry-f-called t)))
((symbol-function 'org-drill-test-display-rescheduler) #'ignore))
(org-drill-test-display))
(should entry-f-called)
;; Tag was toggled off in the unwind-protect cleanup, so the
;; entry should not be tagged.
(should-not (member "zysygy" (org-get-tags))))))
(ert-deftest test-org-drill-test-display-rescheduler-runs-hook-and-reads-key ()
"The rescheduler runs the answer hook and waits on read-key-sequence."
(let ((hook-ran nil)
(key-read nil))
(let ((org-drill-display-answer-hook
(list (lambda () (setq hook-ran t)))))
(cl-letf (((symbol-function 'read-key-sequence)
(lambda (&rest _) (setq key-read t) "x")))
(org-drill-test-display-rescheduler nil)))
(should hook-ran)
(should key-read)))
;;;; org-drill-mode cloze-face flag branches
(ert-deftest test-org-drill-mode-with-flag-installs-cloze-keywords ()
"When `org-drill-use-visible-cloze-face-p' is t, enabling `org-drill-mode'
installs the cloze keyword spec buffer-locally."
(with-temp-buffer
(org-mode)
(let ((org-drill-use-visible-cloze-face-p t))
(org-drill-mode 1)
(should org-drill--installed-cloze-keywords))))
(ert-deftest test-org-drill-mode-without-flag-installs-nothing ()
"When the flag is nil, enabling `org-drill-mode' installs no cloze keywords."
(with-temp-buffer
(org-mode)
(let ((org-drill-use-visible-cloze-face-p nil))
(org-drill-mode 1)
(should (null org-drill--installed-cloze-keywords)))))
(provide 'test-org-drill-small-branch-coverage)
;;; test-org-drill-small-branch-coverage.el ends here
|
