-
Notifications
You must be signed in to change notification settings - Fork 34
/
test-helper.el
33 lines (27 loc) · 1.06 KB
/
test-helper.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
(message "Org version: %s on Emacs version: %s" (org-version) (emacs-version))
(require 'xtest)
(load-file "elfeed-org.el")
(setq org-tags-column 0)
;;; Code:
(defmacro with-fixture (file &rest body)
"Use FILE as current `org-mode' buffer to run the BODY."
()
`(with-temp-buffer
(insert-file-contents (expand-file-name ,file))
(org-mode)
,@body))
(defun xt-trees-with-id-length (fixture expected-length)
"Compare length of trees.
Argument FIXTURE An org file.
Argument EXPECTED-LENGTH The number of trees found in the FIXTURE."
(= (safe-length (with-fixture fixture (rmh-elfeed-org-import-trees "elfeed")))
expected-length))
(defun xt-feeds (fixture expected)
"Compare result of trees.
Argument FIXTURE An org file.
Argument EXPECTED the expected feeds list."
(let ((actual (with-fixture fixture
(rmh-elfeed-org-filter-relevant
(rmh-elfeed-org-convert-tree-to-headlines
(rmh-elfeed-org-import-trees "elfeed"))))))
(equal actual expected)))