diff options
author | Leon Rische <leon.rische@me.com> | 2020-11-08 03:38:53 +0100 |
---|---|---|
committer | Leon Rische <leon.rische@me.com> | 2020-11-08 03:38:53 +0100 |
commit | 5faf8ca128df183916b994e28eeab996bc1291f6 (patch) | |
tree | 4a48c43de2ec8a47347b5c1c8f1f9a71094f657f /tests | |
parent | ef8378da9eaf65952a5d23e61cb982423ec6ba81 (diff) |
Match lowercase file keywords
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 |