blob: c00083be7904ca5c592e69f90e97cbda7d8c00b0 (
about) (
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
|
(require 'org-fc)
(require 'org-fc-test-helper)
(require 'ert)
(ert-deftest org-fc-test-review-data ()
(let ((index (org-fc-awk-index-paths
(list
(org-fc-test-fixture "index/review_data.org")))))
(should (eq (length index) 2))
(let ((card1 (car index))
(card2 (cadr index)))
(should
(equal (plist-get card1 :id)
"f8cc05c7-aa3a-4a21-aa71-38178477e619"))
(should
(eq (length (plist-get card1 :positions)) 2))
(let* ((poss (plist-get card1 :positions))
(pos1 (car poss))
(pos2 (cadr poss)))
(should (equal (plist-get pos1 :position) "front"))
(should (equal (plist-get pos1 :ease) 2.5))
(should (equal (plist-get pos1 :box) 0))
(should (equal (plist-get pos1 :interval) 0))
(should (equal (plist-get pos1 :due) '(24485 10257)))
(should (equal (plist-get pos2 :position) "back"))
(should (equal (plist-get pos2 :ease) 2.8))
(should (equal (plist-get pos2 :box) 2))
(should (equal (plist-get pos2 :interval) 123.4))
(should (equal (plist-get pos2 :due) '(24485 10260))))
(should
(equal (plist-get card2 :id)
"404557e5-ec07-4ee1-a000-3f0e8a94eaa0"))
(should
(eq (length (plist-get card2 :positions)) 2))
(let* ((poss (plist-get card2 :positions))
(pos1 (car poss))
(pos2 (cadr poss)))
(should (equal (plist-get pos1 :position) "front"))
(should (equal (plist-get pos1 :due) '(24485 13305)))
(should (equal (plist-get pos1 :custom1) 1.0))
(should (equal (plist-get pos1 :custom2) 3))
(should (equal (plist-get pos2 :position) "back"))
(should (equal (plist-get pos2 :due) '(24485 13310)))
(should (equal (plist-get pos2 :custom1) 2.0))
(should (equal (plist-get pos2 :custom2) 4))))))
|
