awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-07 12:47:23 -05:00
Code Issues Packages Projects Releases Wiki Activity

(test): add org-roam-file-p (#2460)

Browse Source
This commit is contained in:
Bruno Heridet
2024-07-15 18:37:15 +02:00
committed by GitHub
parent 3c52d581ae
commit 84334b7e16
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
tests/test-org-roam.el
View File

@ -24,6 +24,17 @@
(require 'buttercup) (require 'buttercup)
(require 'org-roam) (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" (describe "org-roam-list-files"
(before-each (before-each
(setq org-roam-directory (expand-file-name "tests/roam-files") (setq org-roam-directory (expand-file-name "tests/roam-files")