blob: 91e076c8c52521e0e0a7b26dcfd394dc8a4621e3 (
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
|
;;; test-org-drill-prompt-and-format-helpers.el --- Tests for small prompt + format helpers -*- lexical-binding: t; -*-
;;; Commentary:
;; Tests for the small helpers that build prompts and format display
;; data: leech-warning preamble, the minibuffer-timer message, and the
;; cloze-overlay length-matches branch.
;;; Code:
(require 'ert)
(require 'cl-lib)
(require 'org)
(require 'org-drill)
;;;; org-drill--maybe-prepend-leech-warning
(ert-deftest test-maybe-prepend-leech-warning-not-leech-returns-prompt ()
"When the entry isn't a leech, the prompt is returned unchanged."
(cl-letf (((symbol-function 'org-drill-entry-leech-p) (lambda (&rest _) nil)))
(let ((org-drill-leech-method 'warn))
(should (equal "p" (org-drill--maybe-prepend-leech-warning "p"))))))
(ert-deftest test-maybe-prepend-leech-warning-method-not-warn-returns-prompt ()
"When `org-drill-leech-method' is not `warn', no warning is prepended."
(cl-letf (((symbol-function 'org-drill-entry-leech-p) (lambda (&rest _) t)))
(let ((org-drill-leech-method 'skip))
(should (equal "p" (org-drill--maybe-prepend-leech-warning "p"))))))
(ert-deftest test-maybe-prepend-leech-warning-leech-with-warn-prepends ()
"Both conditions met → result starts with '!!! LEECH ITEM !!!' and ends with PROMPT."
(cl-letf (((symbol-function 'org-drill-entry-leech-p) (lambda (&rest _) t)))
(let* ((org-drill-leech-method 'warn)
(out (org-drill--maybe-prepend-leech-warning "the-prompt")))
(should (string-match-p "!!! LEECH ITEM !!!" out))
(should (string-suffix-p "the-prompt" out)))))
;;;; org-drill-presentation-minibuffer-timer-function
(ert-deftest test-presentation-minibuffer-timer-function-emits-timer-prompt ()
"The timer function messages an MM:SS prefix concatenated with the prompt."
(let ((messages nil)
(org-drill-presentation-timer-calls 0))
(cl-letf (((symbol-function 'message)
(lambda (fmt &rest args)
(push (apply #'format fmt args) messages))))
;; Pass an item-start-time slightly in the past.
(org-drill-presentation-minibuffer-timer-function
(time-subtract (current-time) 5)
"rate this card"))
(should (cl-some (lambda (m) (string-match-p "rate this card" m)) messages))
(should (= 1 org-drill-presentation-timer-calls))))
(ert-deftest test-presentation-minibuffer-timer-function-cancels-after-many-calls ()
"After 10+ ticks, the timer is auto-cancelled."
(let ((cancelled nil))
(cl-letf (((symbol-function 'message) #'ignore)
((symbol-function 'org-drill-presentation-timer-cancel)
(lambda () (setq cancelled t))))
(let ((org-drill-presentation-timer-calls 10))
(org-drill-presentation-minibuffer-timer-function
(current-time) "p")
(should cancelled)))))
(ert-deftest test-presentation-minibuffer-timer-function-uses-plus-prefix-after-an-hour ()
"After ≥1 hour elapsed, the prefix becomes '++:++' instead of MM:SS."
(let ((messages nil)
(org-drill-presentation-timer-calls 0))
(cl-letf (((symbol-function 'message)
(lambda (fmt &rest args)
(push (apply #'format fmt args) messages))))
(org-drill-presentation-minibuffer-timer-function
(time-subtract (current-time) 3700)
"p"))
(should (cl-some (lambda (m) (string-match-p "\\+\\+:\\+\\+" m)) messages))))
;;;; cloze hide with length-matches flag
(defun count-overlays-of-cloze ()
(cl-count-if (lambda (ov) (eq (overlay-get ov 'category)
'org-drill-cloze-overlay-defaults))
(overlays-in (point-min) (point-max))))
(ert-deftest test-hide-clozed-text-with-length-flag-uses-dotted-display ()
"With `org-drill-cloze-length-matches-hidden-text-p' t, the cloze's display
property is a string of dots."
(with-temp-buffer
(insert "Capital is [Paris].")
(org-mode)
(goto-char (point-min))
(let ((org-drill-cloze-length-matches-hidden-text-p t))
(org-drill-hide-clozed-text)
(let ((found-dotted nil))
(dolist (ov (overlays-in (point-min) (point-max)))
(let ((d (overlay-get ov 'display)))
(when (and (stringp d) (string-match-p "^\\[\\.+\\]$" d))
(setq found-dotted t))))
(should found-dotted)))))
;;;; simple8 random-noise branch
(ert-deftest test-determine-next-interval-simple8-with-random-noise ()
"When `org-drill-add-random-noise-to-intervals-p' is t, the returned
next-interval is multiplied by a small dispersal factor (≠1.0 in general)."
(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-simple8
(make-org-drill-card-state
:last-interval 4.0 :repetitions 1
:failures 0 :meanq 5.0 :total-repeats 1)
5
0))
(next (nth 0 result)))
;; With factor 1.5, the original next-interval was scaled up.
(should (numberp next))
(should (> next 0))))))
(provide 'test-org-drill-prompt-and-format-helpers)
;;; test-org-drill-prompt-and-format-helpers.el ends here
|
