diff options
| author | Leon Rische <leon.rische@me.com> | 2023-05-14 13:22:28 +0200 |
|---|---|---|
| committer | Leon Rische <leon.rische@me.com> | 2023-05-14 13:22:28 +0200 |
| commit | 0d4ac6eb7740fb6bfe470cec0e18ee7158171ee8 (patch) | |
| tree | 0ca3c95544d2faaeae46bbd6024b037c0b3cfc8e | |
| parent | 364172d7fbef6e241724bc32fc241dcbe6379d9c (diff) | |
Fix tests
| -rw-r--r-- | tests/org-fc-filter-test.el | 4 | ||||
| -rw-r--r-- | tests/org-fc-indexer-test.el | 6 | ||||
| -rw-r--r-- | tests/org-fc-review-data-test.el | 8 |
3 files changed, 11 insertions, 7 deletions
diff --git a/tests/org-fc-filter-test.el b/tests/org-fc-filter-test.el index 3458c7b..30909be 100644 --- a/tests/org-fc-filter-test.el +++ b/tests/org-fc-filter-test.el @@ -26,7 +26,9 @@ index)) (ert-deftest org-fc-filter-test () - (let* ((index (org-fc-awk-index-paths (list (org-fc-test-fixture "filter/"))))) + (let* ((index + (org-fc-index-flatten-file + (org-fc-awk-index (list (org-fc-test-fixture "filter/")))))) ;; Index of all cards (should (org-fc-test-compare-ids index diff --git a/tests/org-fc-indexer-test.el b/tests/org-fc-indexer-test.el index 760372e..5981a04 100644 --- a/tests/org-fc-indexer-test.el +++ b/tests/org-fc-indexer-test.el @@ -12,12 +12,12 @@ (dolist (file files) (org-fc-test-check-structure '((:cards ())) - (org-fc-awk-index-paths (list (org-fc-test-fixture file))))))) + (org-fc-awk-index (list (org-fc-test-fixture file))))))) (ert-deftest org-fc-test-escaping () (org-fc-test-check-structure '((:cards ((:id "33645f3a-384d-44ed-aed2-a2d56b973800")))) - (org-fc-awk-index-paths + (org-fc-awk-index (list (org-fc-test-fixture "escaping/spaces in filename.org"))))) (ert-deftest org-fc-test-index-keywords () @@ -26,7 +26,7 @@ :cards ((:inherited-tags ":tag1:tag2:"))) (:title "File Title Lowercase" :cards ((:inherited-tags ":tag3:tag4:")))) - (org-fc-awk-index-paths + (org-fc-awk-index (list (org-fc-test-fixture "index/uppercase.org") (org-fc-test-fixture "index/lowercase.org"))))) diff --git a/tests/org-fc-review-data-test.el b/tests/org-fc-review-data-test.el index c00083b..9009b78 100644 --- a/tests/org-fc-review-data-test.el +++ b/tests/org-fc-review-data-test.el @@ -3,9 +3,11 @@ (require 'ert) (ert-deftest org-fc-test-review-data () - (let ((index (org-fc-awk-index-paths - (list - (org-fc-test-fixture "index/review_data.org"))))) + (let ((index + (org-fc-index-flatten-file + (org-fc-awk-index + (list + (org-fc-test-fixture "index/review_data.org")))))) (should (eq (length index) 2)) (let ((card1 (car index)) (card2 (cadr index))) |