blob: e29871b797ef812afa511024fb0054048bfc69b3 (
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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
;;; test-org-agenda-config-commands.el --- Tests for org-agenda command wrappers -*- lexical-binding: t; -*-
;;; Commentary:
;; Sibling tests cover skip-functions, category, display, add-files,
;; and build-list. This file covers the remaining wrapper commands:
;;
;; cj/--org-agenda-scan-files
;; cj/org-agenda-refresh-files
;; cj/todo-list-all-agenda-files
;; cj/todo-list-single-project
;; cj/todo-list-from-this-buffer
;; cj/main-agenda-display
;; cj/add-timestamp-to-org-entry
;;; Code:
(require 'ert)
(require 'cl-lib)
(require 'org)
(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
(require 'org-agenda-config)
;; Top-level defvars so let-binds reach the dynamic variable under
;; lexical scope.
(defvar inbox-file "/tmp/test-inbox.org")
(defvar schedule-file "/tmp/test-schedule.org")
(defvar gcal-file "/tmp/test-gcal.org")
(defvar pcal-file "/tmp/test-pcal.org")
(defvar dcal-file "/tmp/test-dcal.org")
(defvar projects-dir "/tmp/test-projects/")
(defvar org-agenda-files nil)
;;; cj/--org-agenda-scan-files
(ert-deftest test-org-agenda-scan-files-includes-base-files ()
"Normal: the scanner seeds the list with the inbox/schedule/cal globals."
(cl-letf (((symbol-function 'cj/add-files-to-org-agenda-files-list) #'ignore))
(let ((result (cj/--org-agenda-scan-files)))
(should (member inbox-file result))
(should (member schedule-file result))
(should (member gcal-file result))
(should (member pcal-file result))
(should (member dcal-file result)))))
(ert-deftest test-org-agenda-scan-files-includes-project-additions ()
"Normal: anything the projects walker pushes onto `org-agenda-files'
ends up in the returned list."
(cl-letf (((symbol-function 'cj/add-files-to-org-agenda-files-list)
(lambda (_dir)
(push "/tmp/test-projects/alpha/todo.org" org-agenda-files))))
(let ((result (cj/--org-agenda-scan-files)))
(should (member "/tmp/test-projects/alpha/todo.org" result)))))
;;; cj/org-agenda-refresh-files
(ert-deftest test-org-agenda-refresh-files-forces-rebuild ()
"Normal: refresh-files calls build with force-rebuild flag."
(let (received-flag)
(cl-letf (((symbol-function 'cj/build-org-agenda-list)
(lambda (&optional flag) (setq received-flag flag))))
(cj/org-agenda-refresh-files))
(should (eq received-flag 'force-rebuild))))
;;; cj/todo-list-all-agenda-files
(ert-deftest test-org-agenda-todo-list-all-routes-through-a-t ()
"Normal: todo-list-all-agenda-files builds the list then calls org-agenda \"a\" \"t\"."
(let (build-called agenda-args)
(cl-letf (((symbol-function 'cj/build-org-agenda-list)
(lambda (&optional _) (setq build-called t)))
((symbol-function 'org-agenda)
(lambda (&rest args) (setq agenda-args args))))
(cj/todo-list-all-agenda-files))
(should build-called)
(should (equal agenda-args '("a" "t")))))
;;; cj/todo-list-single-project
(ert-deftest test-org-agenda-todo-list-single-project-scopes-to-chosen-project ()
"Normal: single-project narrows `org-agenda-files' to the chosen
project's todo.org plus the calendar/inbox files, then routes \"a\" \"d\"."
(let* ((tmp (file-name-as-directory (make-temp-file "cj-agenda-proj-" t)))
(alpha (expand-file-name "alpha" tmp))
(alpha-todo (expand-file-name "todo.org" alpha))
(projects-dir tmp)
seen-files agenda-args)
(make-directory alpha t)
(with-temp-file alpha-todo (insert "* heading\n"))
(unwind-protect
(progn
(cl-letf (((symbol-function 'completing-read)
(lambda (&rest _) "alpha"))
((symbol-function 'org-agenda)
(lambda (&rest args)
(setq seen-files org-agenda-files
agenda-args args))))
(cj/todo-list-single-project))
(should (equal agenda-args '("a" "d")))
(should (member alpha-todo seen-files))
(should (member inbox-file seen-files)))
(delete-directory tmp t))))
;;; cj/todo-list-from-this-buffer
(ert-deftest test-org-agenda-todo-list-from-org-buffer-uses-buffer-file ()
"Normal: in an org-mode buffer, the agenda is scoped to its file."
(let (seen-files agenda-args)
(cl-letf (((symbol-function 'org-agenda)
(lambda (&rest args)
(setq seen-files org-agenda-files
agenda-args args))))
(with-temp-buffer
(setq buffer-file-name "/tmp/notes.org")
(org-mode)
(cj/todo-list-from-this-buffer)))
(should (equal agenda-args '("a" "t")))
(should (equal seen-files (list "/tmp/notes.org")))))
(ert-deftest test-org-agenda-todo-list-from-non-org-buffer-messages ()
"Boundary: a non-org buffer routes through `message' instead of
calling `org-agenda'."
(let (msg called-agenda)
(cl-letf (((symbol-function 'org-agenda)
(lambda (&rest _) (setq called-agenda t)))
((symbol-function 'message)
(lambda (fmt &rest args) (setq msg (apply #'format fmt args)))))
(with-temp-buffer
(fundamental-mode)
(cj/todo-list-from-this-buffer)))
(should-not called-agenda)
(should (string-match-p "not an org buffer" msg))))
;;; cj/main-agenda-display
(ert-deftest test-org-agenda-main-display-builds-then-routes-a-d ()
"Normal: main-agenda-display builds the agenda list then calls
`org-agenda' with the \"a\" \"d\" keys."
(let (build-called agenda-args)
(cl-letf (((symbol-function 'cj/build-org-agenda-list)
(lambda (&optional _) (setq build-called t)))
((symbol-function 'org-agenda)
(lambda (&rest args) (setq agenda-args args))))
(cj/main-agenda-display))
(should build-called)
(should (equal agenda-args '("a" "d")))))
;;; cj/add-timestamp-to-org-entry
(ert-deftest test-org-agenda-add-timestamp-inserts-on-next-line ()
"Normal: add-timestamp inserts a `<date time>' line below the cursor."
(with-temp-buffer
(insert "First line content")
(goto-char (point-min))
(cj/add-timestamp-to-org-entry "09:00")
(let ((text (buffer-string)))
;; Inserted line carries the time we passed and angle brackets.
(should (string-match-p "<[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [A-Za-z]\\{3\\} 09:00>"
text)))))
(provide 'test-org-agenda-config-commands)
;;; test-org-agenda-config-commands.el ends here
|
