From 84334b7e163edfc537c52c5e4c8c7339fadf4598 Mon Sep 17 00:00:00 2001 From: Bruno Heridet Date: Mon, 15 Jul 2024 18:37:15 +0200 Subject: [PATCH] (test): add org-roam-file-p (#2460) --- tests/test-org-roam.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/test-org-roam.el b/tests/test-org-roam.el index fdf00a6..92c236c 100644 --- a/tests/test-org-roam.el +++ b/tests/test-org-roam.el @@ -24,6 +24,17 @@ (require 'buttercup) (require 'org-roam) +(describe "org-roam-file-p" + (it "checks if given file respects criteria" + (expect (org-roam-file-p "tests/roam-files/family.org") :to-equal nil) + + (setq org-roam-directory (expand-file-name "tests/roam-files")) + (expect (org-roam-file-p "tests/roam-files/family.org") :to-equal t) + (expect (org-roam-file-p "tests/roam-files/markdown.md") :to-equal nil) + + (setq org-roam-file-exclude-regexp (regexp-quote "family.org")) + (expect (org-roam-file-p "tests/roam-files/family.org") :to-equal nil))) + (describe "org-roam-list-files" (before-each (setq org-roam-directory (expand-file-name "tests/roam-files")