blob: adb00fef7cd6c147fc7c0d99562912fe5f8771ae (
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
54
55
56
57
58
59
60
61
|
(require 'org-fc)
(require 'org-fc-test-helper)
(require 'ert)
(ert-deftest org-fc-test-index-malformed ()
(should (null (org-fc-awk-index-paths
(list (org-fc-test-fixture "malformed/no_review_data.org")))))
(should (null (org-fc-awk-index-paths
(list (org-fc-test-fixture "malformed/no_properties.org")))))
(should (null (org-fc-awk-index-paths
(list (org-fc-test-fixture "malformed/normal_swapped_drawers.org")))))
(should (null (org-fc-awk-index-paths
(list (org-fc-test-fixture "malformed/unclosed_drawer1.org")))))
(should (null (org-fc-awk-index-paths
(list (org-fc-test-fixture "malformed/unclosed_drawer2.org"))))))
(ert-deftest org-fc-test-escaping ()
(let ((index (org-fc-awk-index-paths
(list (org-fc-test-fixture "escaping/spaces in filename.org")))))
(should (eq (length index) 1))
(should
(equal (plist-get (car index) :id)
"33645f3a-384d-44ed-aed2-a2d56b973800"))))
(ert-deftest org-fc-test-index ()
(let ((index (org-fc-awk-index-paths
(list
(org-fc-test-fixture "index/test.org")))))
(should (eq (length index) 3))
(let ((card1 (car index))
(card2 (cadr index))
(card3 (caddr index)))
(should
(equal (plist-get card1 :id)
"edee8940-5c9a-4c70-b1c4-f45c194c0c97"))
(should
(equal (plist-get card1 :local-tags)
":fc:tag1:"))
(should
(equal (plist-get card1 :title)
"Headline"))
(should
(equal (plist-get card2 :id)
"59b3b102-aebd-44ba-a1fd-6dc912c34fcf"))
(should
(equal (plist-get card2 :local-tags)
":fc:tag2:"))
(should
(equal (plist-get card2 :title)
"Headline 2"))
(should
(equal (plist-get card3 :id)
"a7ed2686-73e6-4780-825d-78cf4b2e5374"))
(should
(equal (plist-get card3 :local-tags)
":fc:tag3:"))
(should
(equal (plist-get card3 :title)
"Headline 3:not_a_tag:")))))
|
