From 0d4ac6eb7740fb6bfe470cec0e18ee7158171ee8 Mon Sep 17 00:00:00 2001
From: Leon Rische <leon.rische@me.com>
Date: Sun, 14 May 2023 13:22:28 +0200
Subject: Fix tests

---
 tests/org-fc-filter-test.el      | 4 +++-
 tests/org-fc-indexer-test.el     | 6 +++---
 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)))
-- 
cgit v1.2.3