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
|
;;; test-org-drill-statistics-sparkline.el --- Tests for sparkline statistics -*- lexical-binding: t; -*-
;;; Commentary:
;; ERT tests for the org-drill statistics dashboard sparkline block.
;;; Code:
(require 'ert)
(require 'org-drill)
(require 'cl-lib)
(require 'org)
(ert-deftest test-org-drill-statistics-sparkline-empty ()
"An empty sequence renders as the empty string."
(should (equal (org-drill-statistics--sparkline '()) ""))
(should (equal (org-drill-statistics--sparkline []) "")))
(ert-deftest test-org-drill-statistics-sparkline-single-value ()
"A single positive value renders as the full block.
With a one-element sequence and no explicit MAX, the value equals the
derived max and maps to the tallest glyph."
(should (equal (org-drill-statistics--sparkline '(5)) "█")))
(ert-deftest test-org-drill-statistics-sparkline-single-zero ()
"A single zero value renders as the lowest block, not an error.
The derived max is zero, so the all-zero branch applies."
(should (equal (org-drill-statistics--sparkline '(0)) "▁")))
(ert-deftest test-org-drill-statistics-sparkline-all-equal ()
"All-equal positive values all render as the full block.
Each value equals the derived max, so every glyph is the tallest."
(should (equal (org-drill-statistics--sparkline '(3 3 3 3)) "████")))
(ert-deftest test-org-drill-statistics-sparkline-all-zero ()
"All-zero values render as the lowest block, one per entry.
Max is zero, so the division-by-zero guard returns the lowest glyph for
every value instead of erroring."
(should (equal (org-drill-statistics--sparkline '(0 0 0)) "▁▁▁")))
(ert-deftest test-org-drill-statistics-sparkline-known-ramp ()
"A 0..7 ramp against MAX 7 maps to each glyph in order.
With value I and MAX 7, the index is (round (* (/ I 7.0) 7)) = I, so the
ramp walks the charset from lowest to highest exactly once."
(should (equal (org-drill-statistics--sparkline '(0 1 2 3 4 5 6 7) 7)
"▁▂▃▄▅▆▇█")))
(ert-deftest test-org-drill-statistics-sparkline-nil-entries ()
"Nil entries render as spaces and do not affect the derived max.
The values 1 and 2 against derived max 2 scale to indices 4 (1/2*7
rounds to 4) and 7."
(should (equal (org-drill-statistics--sparkline '(nil 1 nil 2 nil))
" ▅ █ ")))
(ert-deftest test-org-drill-statistics-sparkline-all-nil ()
"An all-nil sequence renders as one space per entry."
(should (equal (org-drill-statistics--sparkline '(nil nil nil)) " ")))
(ert-deftest test-org-drill-statistics-sparkline-explicit-max ()
"An explicit MAX scales values against it, not the sequence max.
With MAX 10, value 10 is the full block, 0 is the lowest, and 5 scales
to 5/10*7 = 3.5 which rounds to index 4."
(should (equal (org-drill-statistics--sparkline '(0 5 10) 10) "▁▅█")))
(ert-deftest test-org-drill-statistics-sparkline-explicit-zero-max ()
"An explicit MAX of zero renders every value as the lowest block.
The guard treats a zero ceiling like the all-zero case rather than
dividing by zero."
(should (equal (org-drill-statistics--sparkline '(0 1 2) 0) "▁▁▁")))
(ert-deftest test-org-drill-statistics-sparkline-value-above-max ()
"A value exceeding MAX clamps to the full block instead of overflowing.
Without the clamp the computed index would exceed the charset length.
The 5 scales to 5/10*7 = 3.5 which rounds to index 4."
(should (equal (org-drill-statistics--sparkline '(20) 10) "█"))
(should (equal (org-drill-statistics--sparkline '(5 20) 10) "▅█")))
(ert-deftest test-org-drill-statistics-sparkline-vector-input ()
"A vector argument is accepted and rendered like a list.
The helper coerces any sequence, so callers may pass either."
(should (equal (org-drill-statistics--sparkline [0 7] 7) "▁█")))
(provide 'test-org-drill-statistics-sparkline)
;;; test-org-drill-statistics-sparkline.el ends here
|
