blob: 9743c5fbff8d9449820ff32ae1069eedd7d18031 (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
;;; test-org-drill-current-scope.el --- Tests for org-drill-current-scope -*- lexical-binding: t; -*-
;;; Commentary:
;; org-drill-current-scope translates a drill scope into the scope argument
;; org-map-entries expects, and org-drill-map-entries delegates to it. The
;; map-entries mapping itself and drill-match filtering are covered in
;; test-org-drill.el (find-entries / find-tagged-entries); this file covers
;; the scope-translation branches, which had no tests.
;;; Code:
(require 'ert)
(require 'cl-lib)
(require 'org-drill)
(ert-deftest test-org-drill-current-scope-file-returns-nil ()
"Scope `file' maps to nil — the current buffer, respecting narrowing."
(should (null (org-drill-current-scope 'file))))
(ert-deftest test-org-drill-current-scope-file-no-restriction-returns-file ()
"Scope `file-no-restriction' maps to `file' — whole buffer, ignoring narrowing."
(should (eq 'file (org-drill-current-scope 'file-no-restriction))))
(ert-deftest test-org-drill-current-scope-custom-symbol-passes-through ()
"An unrecognized scope such as `tree' is returned unchanged."
(should (eq 'tree (org-drill-current-scope 'tree))))
(ert-deftest test-org-drill-current-scope-nil-falls-back-to-org-drill-scope ()
"A nil scope falls back to the value of `org-drill-scope'."
(let ((org-drill-scope 'tree))
(should (eq 'tree (org-drill-current-scope nil)))))
(ert-deftest test-org-drill-current-scope-directory-lists-org-files ()
"Scope `directory' returns the .org files in the current file's directory."
(let (captured-dir)
(cl-letf (((symbol-function 'buffer-file-name)
(lambda (&rest _) "/tmp/deck/cards.org"))
((symbol-function 'directory-files)
(lambda (dir _full _match)
(setq captured-dir dir)
'("/tmp/deck/a.org" "/tmp/deck/b.org"))))
(let ((result (org-drill-current-scope 'directory)))
(should (equal "/tmp/deck/" captured-dir))
(should (equal '("/tmp/deck/a.org" "/tmp/deck/b.org") result))))))
(provide 'test-org-drill-current-scope)
;;; test-org-drill-current-scope.el ends here
|
