aboutsummaryrefslogtreecommitdiff
path: root/test/test-state.el
blob: 32f52b2b149f9d8f8c61b026d81c08f119521f6c (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
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))))