emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/org-edna e8fc9d5 33/72: Added test for todo action


From: Ian Dunn
Subject: [elpa] scratch/org-edna e8fc9d5 33/72: Added test for todo action
Date: Sun, 21 May 2017 21:11:23 -0400 (EDT)

branch: scratch/org-edna
commit e8fc9d563a2e2a2fdcafdc2011b0ef9ffca7570e
Author: Ian D <address@hidden>
Commit: Ian D <address@hidden>

    Added test for todo action
---
 org-edna-tests.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/org-edna-tests.el b/org-edna-tests.el
index 3444096..d304c2a 100644
--- a/org-edna-tests.el
+++ b/org-edna-tests.el
@@ -132,6 +132,24 @@
     (should (string-equal (substring-no-properties org-block-entry-blocking)
                           "TODO Tagged Heading 1 :1:test:"))))
 
+
+;; Actions
+
+(ert-deftest org-edna-action/todo-test ()
+  (let* ((org-agenda-files `(,org-edna-test-file))
+         (target (org-id-find "0d491588-7da3-43c5-b51a-87fbd34f79f7" t)))
+    (org-with-point-at target
+      (org-edna-action/todo nil "DONE")
+      (should (string-equal (org-entry-get nil "TODO") "DONE"))
+      (org-edna-action/todo nil "TODO")
+      (should (string-equal (org-entry-get nil "TODO") "TODO")))))
+
+
+;; Conditions
+
+
+;; Consideration
+
 (provide 'org-edna-tests)
 
 ;;; org-edna-tests.el ends here



reply via email to

[Prev in Thread] Current Thread [Next in Thread]