diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/org-fc-indexer-test.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/org-fc-indexer-test.el b/tests/org-fc-indexer-test.el index adb00fe..ae75735 100644 --- a/tests/org-fc-indexer-test.el +++ b/tests/org-fc-indexer-test.el @@ -22,6 +22,20 @@ (equal (plist-get (car index) :id) "33645f3a-384d-44ed-aed2-a2d56b973800")))) +(ert-deftest org-fc-test-index-keywords () + (let ((index (org-fc-awk-index-paths + (list (org-fc-test-fixture "index/uppercase.org"))))) + (should (eq (length index) 1)) + (let ((card (car index))) + (should (equal (plist-get card :inherited-tags) ":tag1:tag2:")) + (should (equal (plist-get card :filetitle) "File Title")))) + (let ((index (org-fc-awk-index-paths + (list (org-fc-test-fixture "index/lowercase.org"))))) + (should (eq (length index) 1)) + (let ((card (car index))) + (should (equal (plist-get card :inherited-tags) ":tag1:tag2:")) + (should (equal (plist-get card :filetitle) "File Title"))))) + (ert-deftest org-fc-test-index () (let ((index (org-fc-awk-index-paths (list |