From 0b451e7891fc5e58eac3545775a39a25bc416d4e Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sun, 11 Apr 2021 00:00:15 -0400
Subject: [PATCH] ADD tests for iterators

---
 .../lib/org-x/test/org-x-test-buffer-state.el | 56 +++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/local/lib/org-x/test/org-x-test-buffer-state.el b/local/lib/org-x/test/org-x-test-buffer-state.el
index 06ed67f..fb7094a 100644
--- a/local/lib/org-x/test/org-x-test-buffer-state.el
+++ b/local/lib/org-x/test/org-x-test-buffer-state.el
@@ -334,6 +334,62 @@ Forms are denoted like %(FORM)%."
    "** TODO task 1"
    "*** TODO task 2")
   => :stuck)
+
+(org-x--test-buffer-strings "Iterator status"
+    (org-x-get-iterator-status)
+
+    "uninitialized"
+    ("* TODO iterator"
+     ":PROPERTIES:"
+     ":PARENT_TYPE: iterator"
+     ":END:")
+    => :uninit
+
+    "unscheduled"
+    ("* TODO iterator"
+     ":PROPERTIES:"
+     ":PARENT_TYPE: iterator"
+     ":END:"
+     "** TODO sub")
+    => :unscheduled
+
+    "unscheduled (with DONE)"
+    ("* TODO iterator"
+     ":PROPERTIES:"
+     ":PARENT_TYPE: iterator"
+     ":END:"
+     "** DONE sub"
+     "CLOSED: %(org-x-gen-ts 0)%"
+     "** TODO sub")
+    => :unscheduled
+
+    "empty"
+    ("* TODO iterator"
+     ":PROPERTIES:"
+     ":PARENT_TYPE: iterator"
+     ":END:"
+     "** DONE sub"
+     "CLOSED: %(org-x-gen-ts 0)%")
+    => :empt
+
+    "active"
+    ("* TODO iterator"
+     ":PROPERTIES:"
+     ":PARENT_TYPE: iterator"
+     ":END:"
+     "** TODO sub"
+     "SCHEDULED: %(org-x-gen-ts (+ (* 60 60 24) org-clone-iter-future-time))%")
+    => :actv
+
+    "project error"
+    ("* TODO iterator"
+     ":PROPERTIES:"
+     ":PARENT_TYPE: iterator"
+     ":END:"
+     "** NEXT sub"
+     "*** TODO subsub"
+     "SCHEDULED: %(org-x-gen-ts (1+ org-clone-iter-future-time))%")
+    => :project-error)
     
 (provide 'org-x-test-buffer-state)
 ;;; org-x-test-buffer-state.el ends here