3 test_description="emacs pick interface (sync parser)"
6 EXPECTED=$TEST_DIRECTORY/pick.expected-output
9 test_begin_subtest "Do we have emacs"
10 test_emacs '(insert "hello\n")
15 test_expect_equal_file OUTPUT EXPECTED
17 test_begin_subtest "Basic notmuch-pick view in emacs"
18 test_emacs '(add-to-list (quote load-path) "'$PICK_DIR'")
19 (require (quote notmuch-pick))
20 (setq notmuch-pick-asynchronous-parser nil)
21 (notmuch-pick "tag:inbox")
24 (delete-other-windows)'
25 test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox
27 test_begin_subtest "Navigation of notmuch-hello to search results"
28 test_emacs '(notmuch-hello)
29 (goto-char (point-min))
30 (re-search-forward "inbox")
31 (widget-button-press (1- (point)))
33 (notmuch-pick-from-search-current-query)
36 (delete-other-windows)'
37 test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-tag-inbox
39 test_begin_subtest "Pick of a single thread (from search)"
40 test_emacs '(notmuch-hello)
41 (goto-char (point-min))
42 (re-search-forward "inbox")
43 (widget-button-press (1- (point)))
45 (notmuch-pick-from-search-thread)
48 (delete-other-windows)'
49 test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-single-thread
51 test_begin_subtest "Pick of a single thread (from show)"
52 test_emacs '(notmuch-hello)
53 (goto-char (point-min))
54 (re-search-forward "inbox")
55 (widget-button-press (1- (point)))
57 (notmuch-search-show-thread)
58 (notmuch-pick-from-show-current-query)
61 (delete-other-windows)'
62 test_expect_equal_file OUTPUT $EXPECTED/notmuch-pick-single-thread