forked from mirrors/org-mode
org-agenda: New test for setting priority
* testing/examples/agenda-file.org: Add a subnote, make sure it has no impact on agenda. * testing/lisp/test-org-agenda.el (test-org-agenda/set-priority): New test. TINYCHANGE
This commit is contained in:
parent
d9fdc204cc
commit
7a09c33867
|
@ -3,3 +3,4 @@
|
|||
<2017-03-10 Fri>
|
||||
* test agenda
|
||||
SCHEDULED: <2017-07-19 Wed>
|
||||
** subnote
|
||||
|
|
|
@ -85,6 +85,23 @@
|
|||
(looking-at " *agenda-file:Scheduled: *test agenda"))))
|
||||
(org-test-agenda--kill-all-agendas))
|
||||
|
||||
(ert-deftest test-org-agenda/set-priority ()
|
||||
"One informative line in the agenda. Check that org-agenda-priority updates the agenda."
|
||||
(cl-assert (not org-agenda-sticky) nil "precondition violation")
|
||||
(cl-assert (not (org-test-agenda--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)
|
||||
(org-agenda-priority ?B)
|
||||
(looking-at-p " *agenda-file:Scheduled: *\\[#B\\] test agenda"))))
|
||||
(org-test-agenda--kill-all-agendas))
|
||||
|
||||
(ert-deftest test-org-agenda/sticky-agenda-name ()
|
||||
"Agenda buffer name after having created one sticky agenda buffer."
|
||||
(cl-assert (not org-agenda-sticky) nil "precondition violation")
|
||||
|
|
Loading…
Reference in a new issue