diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/org-fc-indexer-test.el | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/tests/org-fc-indexer-test.el b/tests/org-fc-indexer-test.el index 2200fa0..1d37529 100644 --- a/tests/org-fc-indexer-test.el +++ b/tests/org-fc-indexer-test.el @@ -2,7 +2,7 @@ (require 'org-fc-test-helper) (require 'ert) -(ert-deftest org-fc-test-malformed () +(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 @@ -13,3 +13,41 @@ (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-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:"))))) |