From 5faf8ca128df183916b994e28eeab996bc1291f6 Mon Sep 17 00:00:00 2001 From: Leon Rische Date: Sun, 8 Nov 2020 03:38:53 +0100 Subject: Match lowercase file keywords --- tests/org-fc-indexer-test.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'tests') 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 -- cgit v1.2.3