Add test file for state changes

1 files changed, 12 insertions, 0 deletions

diff --git a/test/test-state.el b/test/test-state.el
new file mode 100644
index 0000000..32f52b2
--- /dev/null
+++ b/test/test-state.el
@@ -0,0 +1,12 @@
+(defmacro with-question-data (cell id &rest body)
+  (declare (indent 2))
+  `(let ((,cell '((question_id . ,id)
+                  (site_par . "emacs")
+                  (last_activity_date . 1234123456))))
+     ,@body))
+
+(ert-deftest test-question-mark-read ()
+  "00ccd139248e782cd8316eff65c26aed838c7e46"
+  (should
+   (with-question-data q nil
+     (sx-question--mark-read q))))