test_begin_subtest "Basic notmuch-tree view in emacs"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
- (require (quote notmuch-tree))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
(test-output)
test_begin_subtest "Refreshed notmuch-tree view in emacs"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
- (require (quote notmuch-tree))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
(notmuch-tree-refresh-view)
test_begin_subtest "Tag message in notmuch tree view (display)"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
- (require (quote notmuch-tree))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
(forward-line)
test_begin_subtest "Untag message in notmuch tree view"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
- (require (quote notmuch-tree))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
(forward-line)
test_begin_subtest "Tag thread in notmuch tree view"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
- (require (quote notmuch-tree))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
;; move to a sizable thread
test_begin_subtest "Untag thread in notmuch tree view"
test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
- (require (quote notmuch-tree))
(notmuch-tree "tag:inbox")
(notmuch-test-wait)
;; move to the same sizable thread as above