From 566e700007628e3706883f2751f59f0752b1e789 Mon Sep 17 00:00:00 2001 From: Marco Wahl Date: Wed, 19 Jul 2017 17:43:50 +0200 Subject: [PATCH] test-org-agenda: Non-todo-kwd scheduled item must appear in agenda --- testing/examples/agenda-file.org | 2 ++ testing/lisp/test-org-agenda.el | 13 ++++++++++++- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/testing/examples/agenda-file.org b/testing/examples/agenda-file.org index e9d99a40f..6579b1cc8 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 0c9928aed..59b7f0baf 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)