summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarco Wahl <marcowahlsoft@gmail.com>2017-07-19 17:43:50 +0200
committerMarco Wahl <marcowahlsoft@gmail.com>2017-07-19 17:43:50 +0200
commit566e700007628e3706883f2751f59f0752b1e789 (patch)
tree40a9f725a6e06a5e40179da5a42ce65116e0b937
parent163c84f2ee6d6b9b8908cd78792bcad0c4d9f6b6 (diff)
downloadorg-mode-566e700007628e3706883f2751f59f0752b1e789.tar.gz
test-org-agenda: Non-todo-kwd scheduled item must appear in agenda
-rw-r--r--testing/examples/agenda-file.org2
-rw-r--r--testing/lisp/test-org-agenda.el13
2 files changed, 14 insertions, 1 deletions
diff --git a/testing/examples/agenda-file.org b/testing/examples/agenda-file.org
index e9d99a4..6579b1c 100644
--- a/testing/examples/agenda-file.org
+++ b/testing/examples/agenda-file.org
@@ -1,3 +1,5 @@
* Test Agenda
<2017-03-10 Fri>
+* test agenda
+SCHEDULED: <2017-07-19 Wed>
diff --git a/testing/lisp/test-org-agenda.el b/testing/lisp/test-org-agenda.el
index 0c9928a..59b7f0b 100644
--- a/testing/lisp/test-org-agenda.el
+++ b/testing/lisp/test-org-agenda.el
@@ -96,6 +96,17 @@ Use this function if you are too lazy to invent a function name."
(should (= 3 (count-lines (point-min) (point-max)))))
(---kill-all-agendas))
+(ert-deftest org-agenda-91d525871b9003e779df915566bfc0cbf91a24a4 ()
+ "One informative line in the agenda from scheduled non-todo-keyword-item."
+ (cl-assert (not org-agenda-sticky) nil "precondition violation")
+ (cl-assert (not (---agenda-buffers)) nil "precondition violation")
+ (let ((org-agenda-span 'day)
+ (org-agenda-files `(,(expand-file-name "examples/agenda-file.org" org-test-dir))))
+ (org-agenda-list nil "<2017-07-19 Wed>")
+ (set-buffer org-agenda-buffer-name)
+ (should (progn (goto-line 3) (looking-at " *agenda-file:Scheduled: *test agenda"))))
+ (---kill-all-agendas))
+
(ert-deftest org-agenda-8e6c85e9ff1ea9fed0ae0fa04ff9a3dace6c9d17 ()
"Agenda buffer name after having created one sticky agenda buffer."
(cl-assert (not org-agenda-sticky) nil "precondition violation")
@@ -105,7 +116,7 @@ Use this function if you are too lazy to invent a function name."
org-agenda-files)
(when buf (kill-buffer buf))
(org-test-with-temp-text "<2017-03-17 Fri>"
- (org-follow-timestamp-link) ; creates a sticky agenda.
+ (org-follow-timestamp-link) ; creates a sticky agenda.
)
(---kill-all-agendas)
(org-agenda-list)